Display Computations 



O 


GET+MGA Entered vd.th TS = active vehicle velocity increment 
TS^ - sin"^ (unitTS * REFSMAT^) 

If TS^ < 0: 

TS^ = TS^ + 1 (the 1 is 360°) 


pMGA = TS^ 

Return 

GET . L VC Entered vdth TS = active vehicle velocity increment 

TS_ = - unitR. 

“3 -init 

TS_ = unit(TS„ V. ., ) 

-2 -3 -init 

TS^ = unitCTS^ TS^) 


DELVLVC = 


TS 


TS^ 

TS^ 

L^% 

Return 

CALCNS3 Entered after Average-G in P47, from "TIGON" setting 

DV47TEMP = V , , + DELVREF (V , , notation also "DELVCTL") 

- -gbody - ^-gbody ^ 

TS = DV47TEMP 
Perform "S 4 I.I" 


DELVIMU = TS 
VMAGI = jVj 

HDOT = unitR * V (writes over UTYAW, R1 of N7G) 


TS = K 


rpad 


If bit 2(AM00NFLG) of FLAGWRDO = 1: 

TS = |RLS|, rescaled to scale factor B29 
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ALTI = jR( - TS (writes over UTPIT, R2 of N78, and low half of N3I) 

Inhibit interrupts 

V ^ ^ = DV47TEMP 

-gbody 

Proceed to "SERVEXIT" (where interrupts release as part of restart logic) 

CALCN85 Entered after Average-G in P40 (from "Pi+ORCS" setting) and 
P41 (from "P4OSXTY" setting) 

Perform "UPDATEVG" 

TS = V , . 

- -gtig 

Perform "S41.I" 


V K ^ = TS 

-gbody - 

Proceed to "SERVXTl" 

SBANDANT Established by "VB64" for a V64E. This is RO5. 

TSt = T 
1 now 

Perform "CDUTRIG" 


T. n = TS, 
decl 1 

Perform "CSMCONIC" 

If X2 = 0: (means earth-centered) 

^b ~ -att 

If X2 ^ 0: (means moon-centered ) 

R — R . , 

— sb —att 

TS = T 

att 

Perform "LUNPOS" 


= - (TS + R^^) 
^ [refsmma^ r^^ 

YAWANG = 0 


-sb 


TS = R , 

- — sb 

Perform "*SMNB^^" 


^sb = TS 


TSj^ - - (^^ * unitZ) unitZ 
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u 


TS2 = unitTS^ 

If TS^ does not generate overflow (e.g. a TS^ component ^ 2® meters) 
YAWANG = cos-1 (TS^ • unitX) 

If (TS^2 ' unitY) < 0: 

YAWANG = (1 - 2"^®) - YAWANG 

RHOSB = cos-1 (unitR^^ ♦ unitZ) - i (the ^ is 90 degrees) 

GAMMASB = YAWANG 

Change priority of present job to 05g 

If bit 5 of EKTYBACT = 0: (means display response received) 

Proceed to "ENDEXT" 

TS = 0651 

vn 

Perform "GOMARKFR" : if terminate, set bit 5 of EXTVBACT = 0 and 

End of job 

if proceed, set bit 5 of EXTVBACT = 0 and 
End of job 

othervd.se. End of job 
TS = IOO2 and perform "BLANKET" (R3BINK) 

Change priority of present job to 04^ 

Delay 0.01 second (by putting job to sleep via "DELAYJOB") 

Proceed to "SBANDANT" 

V82CALL Entered from "V82PERF" for a verb 82. This is R30. 

If bit l(AVEGFLAG) of FLAGWRDl = 1: 

Establish "V82GON1" (priority 07g, vd.th VAC area) 

Perform jobs of "higher" priority if waiting ("V82G0N1" will 
be since VAC-area ones of a given priority are considered 
higher than non-VAC jobs) 

TS = 1644 

vn 

Proceed to "GOXDSPF" : if terminate, set bit 5 of EXTVBACT = 0 

and End of job 

if proceed, set bit 5 of EXTVBACT = 0 
and End of job 

othervd.se, proceed to previous line 
OPTIONX = 2 (Average-G not running if come here) 
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OPTIONX+1 = 1 (means computation for this vehicle) 

TS = 0412 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

Call "TICKTEST" in 0.08 seconds 

Proceed to "V82GOFLP" 


V82GOFLP 

V82FUGS = 0 

Establish "V82GOFF1" (priority 07g, with VAC area) 

If bits 2-1 of V82FLAGS = OO 2 : (set after data from "V82G0FF1") 
Delay 1 second (by putting job to sleep via "DELAYJOB") 
Proceed to second previous line (recheck bits 2-1) 

TS = 1644 

vn 

Proceed to "GOXDSPF": if terminate, set bit 5 of EXTVBACT = 0 

and End of job 

if proceed, set bit 5 of EXTVBACT = 0 
and End of job 

otherwise, proceed to "V82GOFLP" 


V82G0N1 Established at start of "V82CALL" if Average-G on. 

Set R = R and V = V (both from same Average-G cycle) 

~one “ ~one — 

If bit 2(AM00NFLG) of FUGWRDO = 0: 

Set bit 13(V82EMFLG) of FLAGWRD9 = 0 (means earth-centered) 

TFFdRTMU = K_ , 

Idrtmue 

HPERMIN = K . 

minpere 

RPADTEM = K 


rpad 

Set bit 12(LUNLATL0) of FLAGWRD3 = 0 

If bit 2(AM00 NFIjG) of FLAGWRDO = 1: 

Set bit 13(V82EMFIG) of FLAGWRD9 = 1 

TFFdRTMD = , , 

Idrtmum 

HPERMIN = K , _ 

minperm 

RPADTEM = |rLS| 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 


(means moon-centered) 
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Perform "SR30.I" 

If MODREG = 11: 

Perform "INTSTALL" 

Perform "DELRSPL" (continues below if MODREG 7^ 0, as it should) 
If bit 5 of EXTVBACT = 0: (means display response received) 

Proceed to "ENDEXT" 

Delay 1 second (by putting job to sleep via "DELAYJOB") 

Proceed to "V82G0N1" 

V82G0FF1 Established by "V82G0FLP" if Average-G off. 

DSPTEMX = 0 
TS = 0616 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "EMDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 


TS = DSPTEMX 
If DSPTEMX = 0: 


TS = T 


now 

Tj , = TS 
decl 

Tstart82 ~ (note that time origins remain present time, not NI6 time) 

If |0PTI0NX+1|41: 

Perform "CSMPREC" 

If |0PTI0NX+l| > 1: 

Perform "LEMPREC" 


R = R ,.4. (Tag here "BOTHSHIP") 

-one -vatt ® 

V = V , , 

—one vatt 

If X2 = 0: (means earth-centered) 

Set bit 13(V82EMFLG) of FLAGWRD9 = 0 


TFFdRTMU = K 


Idrtmue 


HPERMIN = K 


minpere 
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(If X2 = 0): 


RPADTM = K , 
rpad 

Set bit 12(LUNLATL0) of FLAGWRD3 = 0 

If X2 0: (means moon-centered) 

Set bit 13(V82EMFIG) of FLAGWRD9 = 1 

TFFdRTMU = K, , . 

Idrtmum 

HPERMIN = K . 

minperm 

RPADTEM = |rLS| 

Set bit 12(LUNLATL0) of FLAGWRD3 = 1 
Perform "SR30.1" 

If MODREG = 0: 


Perform "INTSTALL" 

Perform "DELRSPL" (to next line if MODREG = 0, as it should) 

'^start82 '^now ~ '^start82 

If mTPER = 0: (i.e. perigee not ^ HPERMIN) 


TFF = TFF + 


T 

start 82 


V82FLAGS - 00002^ (bit 2=1) 


End of job 


mTPER = mTPER + T 


start 82 


V82FLAGS = OOOOlg (bit 1 = l) 


End of job 


TICKTEST Called near end of "V82CALL" if Average-G not on. 

If bit 5 of EXTVBACT = 0: (means display response received) 

Establish "ENDEXT" (priority 25^) 

End of task 

Call "TICKTEST" in 1 second 

If bits 2-1 of V82FLAGS = 00^: (set after data from "V82G0FF1") 

End of task 



) 
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If bits 2-1 of V82FLAGS = OI 2 : (perigee ^ HPERMIN) 

mTPER = mTPER + K, 

Isec 

End of task 

If bits 2-1 of V82FLAGS = 10^: (perigee not HPERMIN) 

TFF = TFF + Kt 

Isec 

End of task (If bits = II 2 , IFF incremented by 

0.03 seconds, but this should not 
be found) 

SR30.1 Entered from "V82G0N1" and "V82G0FF1" 

If bit 13(V82EMFIG) of FLA.GWRD9 = 1: (means moon— centered) 

-one ^ -one" shifted left 2 places (B27) 

-one "" -one" 2 places (B5) 

Perform "TFFCONIC" (starting at second line) 

TS^ = 1 +\/|l - TFFALFA TFFNP)' (corresponds to 1 + e) B2 

RPER == TFFNP / TS^ 

TS = TS^ TFFldALF 

If TS > 0: 

If ITSI^K : 

' ^ rapmax 

RAPO = TS 
Skip next line 

RAPO = K 

rapmax 

TS = RAPO - RPADTEM 

If bit 13(V82EMFLG) of FIAGWRD9 = 1: (moon-centered) 

TS = TS, shifted right 2 places (scale to B29) 

HAPOX = TS, limited ^ K 

maxnm 

TS^ = RPER - RPADTEM 
TS = TS^ 

If bit 13(V82EMFLG) of FLAGWRD9 =1: 

TS = TS, shifted right 2 places (scale to B29) 


HPERX = TS, limited ,$ 



If TS 2 - HPERMIN < 0: 

mTPER = +0 ^ 

If TS 2 - HPERMIN >/ 0: 

TS = RPER 
Perform "CALCTPER" 
mTPER = - TS 
TS = HPERMIN + RPADTEM 
Perform "CALCTFF" 

TFF = - TS 
Return 

DELRSPL Entered if MODREG - 00 or 11 (from "V82G0FF1" or "V82G0N1") 

If TFF ^0, proceed to "CANTDO" (have gone past interface altitude) 

If TFF = -MAX, proceed to "CANTDO" (don't intersect interface alt.) 

TS (TFRMAG - TFRTERM)/(TFRMAG TFRTERM) - TFFVSQ ' 

VTERM = TS / TFFdRTMU . ^ 

GAMTERM = cos-1 (/tFFNp' /(TS TFRTERM)) (|argument| limted < l) 

COSDELF = 1 - 2 I TFFTEM / (TFRMAG TFRTERM (l + TFFx)| 

Perform "AUGEKUGL" 

THETAPR = cos“l (COSDELF) + PHIE 
LAT = LATSPL 
LONG = LNGSPL 
ALT = DELVLVC 

X 

ALT = 0 

TS = T ^ 
pptm 

If bit 6(V37FLAG) of FLAGWRD7 = 0: (i.e. Average-G not rionning) 

TS = T 

start82 

TS = TS + T - TFF 
ent 

Set bit 13(ERADC0MP) of FLAGWRDl = 0 
Perform "LALOTORV" 
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RSPmRREC = THETAPR - cos ^ (unitR • unitALPHAV) (i.e. + if 

overshoot ) 

Perform "INTWAKE" (starting at from last line, awaken jobs) 
Return 

CANTDO 

LAT = LATSPL 
LONG = LNGSPL 
ALT = DELVLVC^ 

ALT = 0 


TS = T , 
pptm 

If bit 6(V37FLAG) of FLAGWRD7 = 0: 

"" '^start82 

Set bit 13(ERADC0MP) of FLAGWRDl = 0 
Perform "LALOTORV" 

RSPmRREC = - cos~^ (unitR^^^ • unitALPHAV) 

Perform "INTWAKE" (starting at 3rd from last line, awaken jobs) 
Return 

AUGEKUGL Entered from "DELRSPL" and "RTEVN" with VTERM in OD and 
GAMTERM in 2D. 


TS = VTERM - K 
If TS < 0: 


v21k 


= W .,0 * ''cklM.io 

' Vik2 <™ - ''v32k , ) -^cklka , 

-4 -4 -4 

Proceed to "PHICALC-11" 


TS = TS - K 


v32k 


If TS < 0: 
PDKl = K 


-6 


(notation also "V(3K)" ) 


yklk2 


-8 


(VTERM - K, 


v32k 


-8 


) + K 


cklk2 


-8 


' Vklk2 , - ''^2k , > + ''cklk2 , 

-4 -4 -4 

Proceed to "PHICALC-11" 
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TS = TS - K , , 
v4k 


If TS < 0: 


PDKl = K , „ (VTERM - K ) + K . ^ 

yklk2_g ' ■v32k_g cklk2 

PDK2 = K , ^ (VTERM - K ) + K , „ 

yklk 2_2 v32k_2 cklk2 

Proceed to "PHICALC-11" 


TS = TS - K 


v 32 k 


-10 


If TS < 0: 


(notation also "V(400)") 


PDK1 = K,t,„ (VTERM - K ) + K , _ 

yklk2_^ ' v 32 k_^^ cklk2_£^ 

PDK2 = K,^,„ (VTERM - K ) + K , _ 

yklk2 2 v32k_2 cklk 2_2 

Proceed to "PHICALC-11" 


PDKl = K , ^ 

yklk2_^ 


^cklk2 

PDK2 = K , T, ^ 
ykIk2Q 

(VTERM - ) 

cklk2| 


Proceed to "PHICALC-11" 


PHICALC-11 

PHIE = PDKl /(GAMTERM - PDK2) 
If overflow has not taken place: 


If PHIE 0: 

If PHIE - K 


raaxphic 
Skip next line 


< 0 : 


PHIE = K , . 

maxphic 

If VTERM - K^26k ^ 

^ent-<\las326/™«) 

Return (to routine calling "AUGEKUGL") 


'^ent ^tgr26con 

Return (to routine calling "AUGEKUGL") 
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R31CA3X Established by "V83PERF" and "V 85 PERF" for verbs 83 , 85 : 

gives R31 and R34 respectively. "V 83 PERF" also from "P 79 A" . 

Establish "V 83 CALL" (priority 03g) 

Delay 1 second (by putting job to sleep via "DELAYJOB") 

If bit 12 of EXTVBACT = 0: (set 1 at end of pass through "COMPDISP") 

Proceed to second line of "R 3 ICALL" 

If bit 4(R31FLAG) of FLAGWRD 9 = 1 : 

TS = 1654 

vn 

If bit 4(R31FLAG) of FLAGWRD 9 = 0: 

TS = 1653 

"^vn 

Proceed to "GOXDSPF" : if terminate, set bit 5 of EXTVBACT = 0 

and End of job 

if proceed, set bit 5 of EXTVBACT = 0 
and End of job 

otherwise, proceed to 5th line of "R 3 ICALL" 

V 83 CALL Established by "R31CALL" 

TS = T (tag here "STATEXTP") 

now 

If bit 6(V37FLAG) of FLAGWRD 7 = 1 : 


Set R == R, V 
~one — ’ —one 


- V, 


and TS = T ^ 
pptm 


(all from same Average-G 
cycle) 


BASETIME = TS (Tag here "BOTHGO") 


Tdeci = BASETIME 
Perform "LEMPREC" 

BASEOTP = R 

- -attl 

BASEOTV = V ,,, 

- -attl 


NOTE: The BASE! cells are 
also used for VECTAB. results 
in orbital integration if the 
MIDFLAG (bit I 3 of FLAGWRDO) 

(B29 earth. B27 moon) i^te^Lion! ’‘'™1 ^ 

(B7 earth, B 5 moon) 


If bit 6(V37FLAG) of FLAGWRD7 = 1, proceed to "COMPDISP" 


T = T 
decl att 

Perform "CSMPREC" 


BASETHP = R 

- -attl 

BASETHV = V ,,, 

- -^ttl 

Proceed to "HAVEBASE' 


(B29 earth, B27 moon) 
(B7 earth, B5 moon) 
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COMPDISP 


TS, — R , , — R 
~1 “^tt -one 


RANGE = 


F%l 


Shift TS^ left by one less than number of leading zeros in RANGE 

RRATE = (V - Y) • unitTS, 
att one —1 

Perform "CDUTRIG" 

TS 2+3 = CDUS 
TS 2+5 = CDUT 
XI = - "TS^" 

Perform "SXTNB" (loads TS) 

If bit 4(R31FLAG) of FLAGWRD 9 = 1 : 


TS = unitX 

Perform "TRG*NBSM" (starting at second line) 

TS^ = TS [rEFSMMA' 5 (stored in 6 D) 

TS^ = unit ^TS^ - (TS^ • unit^^^) unitR^^^J (stored in 12 D) 

TS. - ('unit(R V ) R N • TS. 

3 V ^-one -one^ -onej -2 

RTHETA = cos“l ( (TS 2 * TS^) sgn TS^J 

If (R • TS, ) < 0: (Note that VI 6 monitor could observe 

the uncorrected value) 

RTHETA = (1 - 2“^®) - RTHETA 

If bit 5 of EXTVBACT = 0: (means response received) 

If MODREG ^ 79: 


Proceed to "ENDEXT" 
Perform "CLEARMRK" 


Set bit 15(PCMANFLG) of FLGWRDIO = 0 
Proceed to "GOTOPOOH" 

Set bit 12 of EXTVBACT = 1 
Proceed to "HAVEBASE" 
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HAVEBASE 





If bit 6(V37FLAG) of FLAGWRDy = 1: (Average-G data available) 

Set = R, = V, and TS = T (all from same Average- 

G cycle ) 

If bit 8(SURFFLAG) of FLAGWRD8 = 1: 

Tdeci = TS (tag here "GETRVN6") 

Perform "LEMPREC" 

Proceed to "COMPDISP" 

Perform "INTSTALL" 

Set bit 4(C0NICINT) of FUGWRD3 = 0 

T , , = TS 

decl 

If bit 6(V37FLAG) of FUGWRD7 = 0: 

T = T 
decl now 

Perform "INTSTALL" 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 
RCV = BASETHP 
VCV = BASETHV 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Set bit 12(M00NFLAG) of FLAGWRDO = 1 
Set bit 4(C0NICINT) of FLAGWRD3 = 0 
If bit 8(SURFFLAG) of FLAGWRD8 = 0: 

Set bit 4(C0NICINT) of FLAGWRD3 = 1 

T , = BASETIME 
et 

Perform "INTEGRVS" 

-one — att 

V = V 
-one -att 

If bit 8(SURFFLAG) of FLAGWRD8 =1: 

T = T 
decl att 

Perform "LEMPREC" 

Proceed to "COMPDISP" 
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(If bit 6 (V 37 FLAG) of FIAGWRD? = O): 

Perform "INTSTALL" 

Set bit 4 (CONICINT) of FLAGWIffl3 = 1 

T = T 
decl att 

Set bit 12(M00NFLAG) of FLAGWRDO = 0 (tag here "OTHINT") 
RCV = BASEOTP 
VCV = BASEOTV 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1: 

Set bit 12(M00NFLAG) of FUGWRDO = 1 

T . = BASETIME 
et 

Perform "INTEGRVS" 

Proceed to "COMPDISP" 

R36 Established by "V90PERF" for verb 90. This is R 36 . 

DSPTEMX = T. 

ig 

TS = 0616 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

TS = DSPTEMX 
If DSPTEMX = 0: 

TS = T 

now 

T , = TS 

decl 

Perform "LEMCONIC" (Tag here "R 36 A") 

^ass 36 ^tt 

UN %6 = '' ^^^^tt^ 

'^decl "" "^att 
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Perform "CSMCONIC" 





UNA. 


A 36 = unitR^^^) 


RANGE 


R , , 
— att 


UNP, 


RRATE = V 

-att 


UNP, 


■36 

■36 


(here is 
(here is 


“ V =336 • ™%6 
TS = 0696 

vn 


cross -range) 
cross-range) 


Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed to "ENDEXT" 
othervri.se, proceed 


Proceed to second line of "R 36 " 
S6l«2 Entered from "NEWRNVN" 


TS = K_ , 

Idrtmu 

*^emsalt ~ ^ 290 kft ^ 

TS = K, , , 

Idrtmue 

Perform "TFFCONIC" 

TS = K , . . 
rtrial 

Perform "CALCTFF" 


COSDELF = 1 - 2 1 TFFTEM / (tFRMAG TFRTERM (l + TFFX)) I 


SINDELF 


= (/T- 


COSDELF ) sgn TFFTEM 


URH = (URONE UNI) SINDELF + URONE COSDELF 


ALPHAV = URH • C 

z — -unit-w 

Perform "GETERAD" 

TS = ERADM + C 

emsalt 

Perform "CALCTFF" 

TTEl = TS 

TTE2 = - (TTEl + MM) 


TTE = TTE2 + T 

pptm 

COSDELF = 1 - 2 ) TFFTEM / (tFRMAG TFRTERM (l + TFFX)) | 

SINDELF = - COSDELF^ ) sgn TFFTEM 

URH = (URONE * UNI) SINDELF + URONE COSDELF 
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ALPHAV - URH • C 

z — — unitw 

Perform "GETERAD" 

TS - cos"l (URH • 

U 

DTEAROT =- K, ^ , TS + TTEl 

ktetal 

Perform "EARR0T2" 

TS = cos"l (URH • R ) 

u 

DTEAROT - TS + TTEl (2nd tdjne) 

Perform "EARR0T2" 

RTGO - cos"^ (URH • 

0 

TS - v/ 2(TFRMAG - TFRTERM)/(TFRMAG TFRTERM) TFFVSQ' 


VTERM - TS / TFFdRTMU 

GAMTERM --- cos'^ (JtFFNP' /(TS TFRTERM)) (largumenti limited < l) 

VIO = VTERM + K /(GAMTERM VTERM) 

vemscon ' ' 


TFRTERM 


ERADM + K 


^^minpere notation "300KFT") 


minpere 

TS = V^2(TFRJ^AG - TFRTERM) /(TFRMAG TFRTERM) - TFFVSQ 
VTEIiM - TS / TFFdRTMU 

GAMAE - cos-T (jffFFNF^ /(TS TFRTERM)) (^rgumentl limited < l) 

VBAESQ - ( (VTERM - ^ 

TS = Ra + Gi 


(VBARSQ / K^^) TY 


+ K 


r3 


If TS < 0: 

TS = 0 
GMAX = TS 


TS = ERADM + 
Perform "CALCTFF" 


COSDELF = 1 - 2| TFFTEM / ( TFRMAG TFRTERM (l + TFFX))| 

SINDELF = (\/l - COSDELF^ ' ) sgn TFFTEM 

URH = (URONE * UNI) SINDELF + URONE COSDELF 

ALPHAV = URH • C 

z — -nonitw 
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Perform "GETERAD" 


TFRTERM = ERADM + K, _ 

4G(JKlt 

TS = V 2(TFRMG - TFRTERM )/(TFRMAG TFRTERM) - TFFVSq ' 

VPRED = TS / TFFdRTMU 

GAMMAEI = cos“^ ^^TFFNP ' / (TS TFRTERM)^ ^ sp (farf^ient^ lin'dbed <l) 

JJ = RTGO (for telemetry, one cell beyond GAMMAEI) 

sp 

Return (to routine calling "S6l.2") 

TFFCONIC 

TFFdRTMU = TS 

TFRMAG = [RQ^g| (tag to enter here is "TFFCONMU") 

V = TFFdRTMU V 

-onepr —one 

TFFNP = ( (TFRMAG V ) unitR I ^ 

* -onepr^ -one I 

TFFVSQ = - I V P 
’ — onepri 

TFFALFA = 2 / TFRMAG + TFFVSQ 
TFFRTALF = S^rFFUFIT 
TS = TFFRTALF^ sgn TFFALFA 
If TS = 0: 

TFFldALF = 0 
If TS ^ 0: 

TFFldALF = 1/TS 
Return 
CALCTPER 

Set bit l(TFFSW) of FLAGWRD7 = 1 (means perigee time desired) 

Proceed to second line of "CALCTFF" 

CALCTFF 

Set bit I(TFFSW) of FLAGWRD7 = 0 (means perigee time not desired) 

TFRTERM = TS (TS set when enter with perigee /terminal radius) 

TS^ = 2 - TFRTERM TFFALFA 
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TFFNP 


TS 2 = TFRTERM TS^ - 
If bit l(TFFSW) of FLA.GWRD7 = 1: (means perigee time desired) 

TS2 = 0 
If TS, < 0; 

TS = +M/IX (no free-fall conic to TFRTERM) 

Return 

TFFQ2 = -VfsT 

TFPQl = V • R 

— onepr —one 

If TFFQl < 0: (vehicle "inbound") 

TFFNUM = TFRTERM - TFRMAG 
TFFDEN = TFFQl + TFFQ2 
If TFFQl ^ 0: 

TFFNUM = TFFQ2 - TFPQl 
TFFDEN = TS^ - TFRMAG TFFALFA 
If lTFFDEN\<K^22im= 

If TFFALFA > 0: 

TFFRZ = 0 

Proceed to second line of "TFFELL" 

TS = 0 (near perigee for hyperbola or parabola) 

Return 

TS = TFFNUM TFFRTALF / TFFDEN 
If |ts1> 1: 

Proceed to "TFFELL" 

TFFZ = TFFNUM / TFFDEN 
TFFTEM - TFFNP TFFZ^ sgn TFFZ 
TFFX = TFFALFA TFFZ^ 

"" ^txO ^txl \x2 + ^tx3 ^tx4 ^ 

Ktx5 

TS^ = TFFZ ( TFRMAG + TFRTERM - 2 TFFZ^ TS) 


If TS|^ •i' 0, proceed to "ENDTFF" 

If T:Sj_ sgn TFFQl ^ 0, proceed to "ENDTFF" 

If TFFldALF 4^ 0, proceed to "ENDTFF" 

TS^ = TS]_ + K 2 pib 5 TFFldALF / TFFRTALF (corrects for period) 
Proceed to "ENDTFF" 

ENDTFF 

If overflow has taken place since start of TFFZ calculation: 

TS = +MAX 


Return 

TS = TFFdRTMU TS^ (TS^ 345 earth, B42 moon) 

Return 


TFFELL 

TFFRZ = TFFDEN / TFFNUM 

TFFX = TFFldALF TFFRZ^, with magnitude limited <1. 

TFFTEM = TFFNP TFFldALF sgn ( TFFRZ TFRMAG + TFFQl) 

"" ^txO + ^txl + ^tx2 ^ ^tx3 ^tx4 + 

Ktx5 TFFx5 


TS^ = 2 (TFFX TS - l) TFFRZ TFFldALF 

- (TFPQ2 - TFFQl j) 
If overflow has taken place since start of TFFTEM calc\ilation: 


TS^ = TFFldALF ^ TS^ + ^ ^2p±h5 '/'TFFldALF 


TS = +MAX 


Return 


TS - TFFdRTMU TS^ 
Retum 
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Quantities in Computations 

See also list of major variables and list of routines 




ALPHAV: See Coordinate Transformations. Only the Z component is required 
for "GETERAD". 

ALT: See Coordinate Transformations. It is loaded briefly in "DELRSPL" 

with the X component of DELVLVC because this is the "third component" 
of LATSPL and LNGSPL and a vector operation is used (this transient 
loading might be noticed if a monitor verb were being used with 
a noun that displays ALT, and therefore is shown in the programmed 
equations ) . 

ALTI: See Boost Computations. 

BASEOTP: Value of LM position vector at BASETIME computed in "V83CALL", 
scale factor B29(earth) or B27(moon), units meters. Subsequent 
computations of LM position in R31/R34 start with this position and 
perfom precision integration (if Average-G is on) or conic 
integration (if Average-G is off). Cell used for VECTAB^ (page ORBI-I 7 ). 

BASEOTV: Value of LM velocity vector at BASETIME computed in "V 83 CALL", 
scale factor B7(earth) or B5(moon), units meters/centi-second. 

See BASEOTP. Cell used for VECTAB^.. 

) 

BASETHP: Value of CSM position vector at BASETIME computed in "V 83 CALL", 
scale factor B29(earth) or B27(moon), units meters. If Average-G 
is on, the quantity is not used, but instead state vector information 
from Average-G is employed. If Average-G is off, however, subsequent 
computations of CSM position in R31/R34 start with this position 
and perform the integration. Cell used for VECTAB^^. 

BASETHV: Value of CSM velocity vector at BASETIME computed in "V83CALL", 
scale factor B7(earth) or B5(moon), units meters/centi-second. 

See BASETHP. Cell used for RPQV (see Orbital Integration). 

BASETIME: Value of time tag associated with BASEOTP/V and BASETHP/V, 
scale factor B28, units centi-seconds. 

^emsalt’ ^^^.sable memory constant, program notation "EMSALT", scale 

factor B29, units meters, giving the altitude above the Fischer 
ellipse where the Entry Monitor System is to be initialized. The 
latitude argument for determining the Fischer ellipse value is 
determined from K^trial* 

— unitw' General Program Control. 

CDUS, CDUT: See Optics Computations. 

COSDELF: Cosine of the "transfer angle" between TFRMAG and TFRTERM, 
scale factor Bl. Program notation "CDELF/2", stored in push- 
down list location lAD. 
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DELVIMU: Velocity increment in control axes computed in "CALCN83", 

s~ale factor B?, units meters/centi-second, used in P47 only. Val\je 
can be zeroed by entry of a recycle verb (see "P47BODY"). Cumiaative 
sum of velocity, in reference coordinates, kept in V , cells (note 
that in this case they are not control coordinates).® ^ 


DELVLVC: See Burn Control. 

DELVREF: See General Program Control. 

DSPTEMX; Display temporary cells used to contain time for e.g. R 30 and R 36 , 
scale factor B28, units centi-seconds, displayed by NI 6 . Cells are 

the same as DSPTEM2+1, : the "X" signifies "extended verbs". 

dp 

DTEAROT: See Coordinate Transformations. 


DV47TEtff: Value of summed velocity increment loaded at start of "CALCN83" 
and transferred to V , , at end, scale factor B7, units meters/ 

centi-second in reference coordinates. Used for restart protection 
of the Slimming process, and stored in the same cells as V^ (see 
Steering Computations). 


-g 


ERADM: See Coordinate Transformations. 


EXTVBACT: See Verb Definitions. 


GAMAE: Value of flight path angle at 300,000 feet, used to compute GMAX, 
"positive down", stored in push-down list address 2D, units 
revolutions . 

GAMMAEI: Single precision value of flight path angle at 400,000 feet, 
scale factor BO, units revolutions (will be negative). It is the 
"angle between the inertial velocity vector and local horizontal" 
at 400,000 feet above the Fischer radius. For telemetry convenience, 
the "least significant half" of GAMMAEI is JJ, loaded at the end 
of "S6l.2" with RTGO^p. See also Return to Earth Computations. 

GAMMASB: Value of "yaw angle" for display in R2 of N51, scale factor BO, 
units revolutions, in range 0 to 36 O degrees, giving S-band antenna 
"yaw pointing angle". 

GAMTEKM: Value of flight path angle e.g. at TFRTERM[, scale factor BO, 
mits revolutions, computed in a subroutine. Angle is measured as 
described for GAMMAEI, except that it is positive (hence could be 
considered as absolute value of flight path angle). When used 
as a communication cell with "AUGEKUGL", is retained in push-down 
list location 2D (and is at the same point as VTERM) . 

GMAX: Value of predicted maxim\jm drag, scale factor BI 4 , units of 0.01 
g's. Computed double precision, but least significant half is 
not used in generating the display, so is written over by the 
most significant half of VMAGI after start of "CM/POSE" computations. 
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HAPOX: Value of apocenter altitude computed in "SR30.1", scale factor 
B29, units meters, displayed by N44. The "X" signifies "extended 
verb", since cell distinct from one in e.g. P30, HAPO, 

HDOT : See Boost Computations . 


HPERX: Value of pericenter altitude computed in "SR30.1", scale factor 
B29, units meters, displayed by N44. See HAPOX. 

HPERMIN: Value of interface altitude used for R30 as the basis for 
computing TFF (if periapsis altitude not below this level, then 
mTPER is also computed). Scale factor is B29(earth) or B27 (moon), 
units meters. 


JJ: 


See Entry Computations. Loaded with RTGO at end of "S61.2" for 
telemetry purposes (see GAMMAEI). 


'^Idrtmu' Constant, program notation "l/RTMU", scale factor B-I7, value 
O.5OO575O27IE-5 X 2I7. Constant used only for initialization 
of TFFdRTMU in "S6l.2" computations, and corresponds to the 
reciprocal of the square root of 3 . 98603223E10 x 1.0012 Iwith 
binary scale factor), where first term is earth ^ (metersVcs^) 
and second is a factor for "near earth trajectory", representing 

°\s usi ^emsalt i^i^ates a lunar return, however, 
Idrtmue * 


^Idrtmue’ Constant, program notation "l/RTMUE", scale factor B-I7, 

value O.5OO87529E-5 X 2r', corresponding to reciprocal of root of 


unmodified earth p. (same value as K 


mutab/ 


in Conic Routines) 


K 


Idrtmum' 

value O.45I62595E-4 X 2-^, 


of moon 


J0l( 


same value as K 


"mutab 


"l/^TMUM", scale factor B-I4, 
corresponding to reciprocal of root 
in Conic Routines). 

14 


^Isec' Constant, program notation "ISEC" scale factor B2B, units 
centi-seconds . Value is 100 x 2~^°, corresponding to 1 second 
(as used). It is added to mTPER or TFF in "TICKTEST" to update 
time of display (if Average-G is not running) so as to reflect 
more closely the "time to" the indicated trajectory point (both 
times nomally would be minus and the addition causes them to 
"count down"). 


K2pib5= Constant, program notation "PI/16", scale factor B5, value 
^ ^3.141592653 X 2“^, corresponding to 2Tr x 2"5 (also used with 
scale factor B4, shown as f ^2pib5^ effect of TT). 

^20kf‘ Constant, program notation "20KFT/S", scale factor B6, mits 
meters/centi-second. Value is 121.92 x 2~>, corresponding to 
20,000 X O.3O4B X 10“2 X 2"°, where first term is "basic" value 
in fps, second converts from feet to meters, third converts to 
centi-seconds, and fourth is scale factor. 
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S6kf’ ^°^stant, program notation "36KFT/S", scale factor B?, units 
meters/centi-second . Value is 109.728 x 2“"^, corresponding to 
36,000 X 0.3048 X 10“^ X 2“"^, viiere first term is "basic" value 
in fps, second converts from feet to meters, third converts to 
centi-seconds, and foiirth is scale factor. 

*^290kft' ^O'^stant, program notation_"290KFT" , scale factor B29, lonits 
meters. Value is 88392 x 2 , corresponding to 290,000 x 

0.3048 X 2 where first term is "basic" value in feet, second 

converts from feet to meters, and third is scale factor. 

\00kft’ ^°^stant, program notation "lOOKFT" , scale factor B29, units 
meters. Value is 121920 x 2 corresponding to 400,000 x 

0.3048 X 2 7^ where first term is "basic" value in feet, second 

converts from feet to meters, and third is scale factor. 

\22ijaL Co’^stant, program notation "LIM(-22)", octal value 37777^. 

37700g, but used in program in such a way (a forcing of overflow) 
that effective value corresponds to 100^, or 2“^^. If TFFDEN 
scaling is B3, this represents a "true" value of 2“^9j if tFFDEN 
scaling is BI6, this represents a "true" value of 2~^; and if 
TFFDEN scaling is BI5 (moon), true value is 2“’^. 

K , _ (i = -10 to 0 in increments of 2) : Value of additive constant 

^ 1 in computing PDKl (i = -10, -8, -6) and PDK2 (i = -4, -2, O) 

in "AUGEKUGL", program notation (for i = O) "CK1K2", scale factors 
all BO. 

For i = 0, -2, -4, constants are in units of revolutions: 
i Value Equivalent to 

0 6.6666666E-3 2.4 degrees 

-2 2.7777777E-3 1.0 degrees 

-4 -8 . 8888888E-3 -3.2 degrees 

For i = -6, -8, -10, constants are in units of revolutions/360, to 
give a PHIE result in units of revolutions. Conversion value 
between nautical miles and (rev/360) is 7.776E6, which is 2l600 
X 360. The 21600 in tiim is 2'Tr x 3437.7468 nmi (about 6366707 
meters as contrasted with 637333^ meters for pad radius and scaling 
of RSPtnRREC for display) . Values are : 

1 Value Equivalent to 


2400/7. 776E6 (2400 nmi) 


-6 3.O8641975E-4 
-8 3.O8641975E-4 
-10 7.07304526E-4 


Same as i = -6 


5500/7. 776E6 (5500 nmi) 


^ktetal" Constant, program notation "KTETAl", scale factor B28, units 
centi-seconds/revolution. Value is 42.1844723 x 2~^, 
corresponding to 1100 x 100 x 27r x 2“^“, where first term is 
"basic" value (seconds/radian) , second converts to centi-seconds 
third converts to revolutions, and fourth is scale factor. Cf. 
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K 


' / : Constant, 

degrees . 


program notation "- 6 . 05 DBG-", scale factor BO, units 
Value is -0.016805556, corresponding to -6.05 


K : Constant, program notation "MAXNM", scale factor B29, units 
^'^^^^^^meters . Octal value is 01065rt 05603^^, corresponding to 18519.814 
kilometers, or about 9999.8995°nmi (DSKY routine display 9999-9 nmi) . 


K h’ ’ Constant, program notation "MAXPHIC", scale factor BO, units 
maxpniCre^olutions . Value is 0.09259298, corresponding to'^2000/2l600, 
where first term is value in nmi and second (see converts to 


K . : Constant, program notation "MINPERE", scale factor B29, imits 

minpere^^g^g ^ Value is 91440 x , corresponding to 300,000 x O .3048 
X 2“^9j where first term in "basic" value in feet (about 49.37365 
nmi), second converts to meters, and third is scale factor. Constant 
also referenced by tag " 3 OOKFT" . 


K . : Constant, program notation "MINPERM", scale factor B27, units 

minperm^^^^^ ^ Value is IO 668 x 2~'^^ , corresponding to 35>000 x O .3048 
X 2~'^ , where first term is "basic" value in feet, second converts 
to meters, and third is scale factor. 

K Constant, program notation "KRl", scale factor B-2, \jnits 

revolutions. Value is -0.026666667, corresponding to -2.4°. 

K Constant, program notation "KR2", scale factor B18, octal value 
21450rt OOOOlrt. Without the non-zero least significant half, 
value corresponds to 4 x 36 O x 10^ x 2"^ (or 9000 x 2 
where first term is "basic" value, second converts from revolutions 
to degrees, third scales to 0.01 g, and fourth is scale factor. 

K Constant, program notation "KR3", scale factor BI 4 , value 1000 x 
r3 2“^. Value corresponds to 10 x 10^ x 2“^, where the first 
term is equal to 10 - 10(x - .3) for x, the nominal L/D, equal 
to 0.3; the second term scales to 0.01 g, and the third is the 
scale factor: formula obtained from previous programs where 

X ^ 0 . 3 . 

K : Constant, program notation "KR4", scale factor B-2, value 

0 . 833333333 . Since it divides VBARSQ, has an effect equivalent 
to multiplying it by (5/6)”^ x 2^ = 4-80. 

K : Constant, program notation "NEARONE", scale factor B29(earth) 

rapmax^^ B27(moon), units meters. Value is (l - 2“28)^ corresponding 
to ( 2^9 _ 2 ) meters for earth and (2^' - |) meters for moon. 

K See Burn Control, 

rpad 

K , . Constant, program notation "RTRIAL", scale factor B29, units 
rtrial^^g^g . Value stored in memory is binary equivalent of 646 OO 98 
meters', according to program comments, this is intended to be 
284643 feet above a "pad" of 6373338 meters (actually is about 
284645.67 feet). 
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K, 2 ^ • Constant, program notation "TGR26C0N", scale factor B28, 

gr con centi-seconds/revolution. Used to compute from 

PHIE for velocity equal to or greater than 26,000 fps (hence the 
notation). Value is 7.2E5 x 2"^°, corresponding to (l/3) x 
21600 X 10^ X 2“28, where first term is "basic" value (for PHIE 
in nmi and answer in seconds), second converts from revolutions 
to nmi (see K > third converts to centi-seconds, and fourth 

is scale factSr. 

K, , Constant, program notation "TLESS 26 ", scale factor B35, value 

^^ess-iO5^y0146688E7 x 2-35. Used to compute T from PHIE and 

VTERM for velocity less than 26,000 fps (hlnce the notation). Decimal 
value corresponds to 866 O x 2l600 x O. 3048 , where first term is 
"basic" value (for PHIE in nmi and velocity in fps), second 
converts from revolutions to nmi (see K vtV(-o)> third converts 
velocity distance unit from meters to f§eut conversion of time 
unit to seconds from centi-seconds not done since time units of 
Tent centi-seconds). 


K 


txO 


- Coefficients in a series expansion used in time-of-f light 

'^calculation, all with scale factor BQ. For positive 


argument, function is tan ^ x 3 / 2 - for negative argument, 

-x 3 / 2 . According to the program 


function is - tanh”! )/ -X 


comments, the polynomial 
0 - 1 , and has a maximum 

was fitted for this flight over the range 
error of 2 E- 5 . Program notation "T(X) + 2 " 

Constant 

Value 

Infinite -Series Value 

^txO 

3.333333333E-1 

1/3 

^txl 

-1 . 99981913 5 E -1 

- 1/5 

^x 2 

I.4I8I4.8467E-I 

1/7 

-P 

-I.01310997E-I 

- 1/9 

^tx 4 

5.609004986E-2 

1/11 

hx 5 

-I.536156925E-2 

-1/13 


^v21k’ program notation "V(21K)", scale factor B7, units 

meters/centi-second. Value is 64 . 008 x 2“', corresponding to 
21000 X 0.3048 X 10-2 ^ 2-"^, where first term is value in fps, 
second converts to meters, third to centi-seconds, and fourth 
is scale factor. 

^v 26 k' program notation "V( 26 K)", scale factor B7, units 

^ meters/centi-second. Value is 79 •248 x 2”"^, corresponding to 
26000 X 0.3048 X 10-2 X 2“' , where first term is value in fps, 
second converts to meters, third converts to centi-seconds, and 
fourth is scale factor. 
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^v32k ~ to 0 in increments of 2): Values of subtractive velocity 

i constant in computing PDKl (i = -10, -8, -6) and PEK2 (i = -4, 
-2,0) in "AUGEKUGL", program notation (for i = O) "V(32K)", 
scale factor B7, units meters/centi-second. To convert a value 
in fps to meters/centi-second, multiply by 0.3048 x 10~2 x 2 ~', 
where first term converts to meters, second converts to centi- 
seconds, and third is scaling. 


i 

Notation 

Value 

Equivalent to 

0 

V(32K) 

97.536 X 2 -^ 

32,000 fps 

-2 

— 

85.344 X 2-7 

28,000 fps 

-4 

V(24K) 

73.152 X 2-7 

24,000 fps 

-6 

V(3K) 

9.144 X 2 "/ 

3,000 fps 

-8 

V(28K) 

85.344 X 2-7 

28,000 fps 

-10 

V(400) 

1.2192 X 2-7 

400 fps 


K : Constant, program notation "V(4K)", scale factor B7, units 
meters/centi-second. Value is 12.192 x 2“'^, corresponding to 
4000 X 0.3048 X 10~2 X 2~7j where first term is value in fps, 
second converts to meters, third converts to centi-seconds, and 
foiu'th is scale factor. 


K: Constant, program notation "VEMSCON", scale factor BI 4 , 

value -O.O 389676 X 2“^. Value corresponds to (-I. 5 IE 6 ) x 
( 0 . 3048 / 100 )'^ X ( 1 / 360 ) X 2“^, where first term is "basic" 
value (for velocities in fps and angles in degrees), second term 
converts denominator to units of fps and also converts final answer 
from fps to meters/centi-second, third term converts angle in 
denominator from revolutions to degrees, and fourth term is the 
scale factor. Stored value is 77777^ 76601^, corresponding to 
about - 0. 03894043 X 2~^: this gives a basic value of about 
-I. 5 O 8945 E 6 . 


^vklk2 ~ to 0 in increments of 2): Value of constant multiplying 
^ i velocity information in computing PDKl (i = -10, -8, -6) and 
PDK2 (i = -4, -2, 0 ) in "AUGEKIGL", program notation (for i = O) 
"yKlK2", scale factors all B-7. 

For i = 0, -2, -4, basic value is for data in degrees and fps, and 
must be multiplied by (IOO/O. 3048 ) x (I/ 36 O) to convert to proper 
velocity information and revolutions. 


i 

0 

-2 

-4 


Value 

2 . 59733157 E -4 X 2^ 
9 . 569 II 636 E -4 X 2 ; 
I.II 63969 IE -3 X 2 ' 


Equivalent to 

2.85E-4 

1.05E-3 

1.225E-3 


For i = -6 and -10, the value of the constant is 0. For i = -8, 
value is -1.86909989E-5 x 2' . This value corresponds to -0.443 x 
( 100 / 0 . 3048 ) X ( 1 / 7 . 776 E 6 ) X 2', where first term is "basic" value 
(to give a PHIE in nautical miles), second converts velocity from 
meters/centi-second to feet/second, third is the conversion factor 


discussed with K 


cklk2^ 


and fourth is scale factor. 


DISP -26 


LAT: See Coordinate Transformations. 

LATSPL: Input information on target latitvide, program notation "LAT(SPL)", 
scale factor BO, units revolutions. Can be displayed in R1 of N6l, 
and should form part of prelaimch erasable load for use in computing 
RSPmRREC. Cell also used to input target information for entry 
equations. Information is geodetic latitude. 

LNGSPL: Input information on target longitude, program notation 

"LNG(SPL)", scale factor BO, units revolutions. Can be displayed 
in R2 of N61 (see LATSPL). See also Return to Earth Computations. 

LONG: See Coordinate Transformations. 

MM: See Entry Preparation. 

mTPER: Value of time from per.alt. , scale factor B28, units centi-seconds, 
program notation "-TPER”. It is set 0 if HPERX is below HPERMIN. 

If V82 is entered with Average -G off, time on display is updated 
every second by "TICKTEST" (after being corrected near end of 
"V82G0FF1" for computation delay since sampling time of state 
vector) by being incremented by 1 second every second (hence 
display could become positive if perigee passed, while a termina- 
tion and reselection of V82 would give a negative time again, 
namely time until the next perigee). If Average-G is on, however, 
computation is recycled every second (plus computing delays) via 
"V82G0N1", and no updating of mTPER is otherwise performed. If 
HPERX is below HPERMIN, update is of TFF instead of mTPER. 

OPTIONX: Cells displayed by N12, and intended for use in a fashion similar 
to OPTIONl, 0PTI0N2, but with extended verbs. Same cells as DSPTEMX+1. 
Program notation for OPIIONX+l also "OPTIONEV" . 

PDKl: Value of equation quantity "K^ " (numerator term for PHIE in 
"AUGEKUGL" routine), units of "revolutions/360" (or 
revolutions^, so that division by revolutions gives result in 
revolutions), scale factor BO, stored in push-down list location 
AD. 

PDK2: Value of equation quantity "K^" (term in denominator for PHIE 
in "AUGEKUGL" routine), scale factor BO, units revolutions, 
stored in push-down list location 6D. 

PHIE: Value of "empirically estimated entry range", scale factor BO, 

units revolutions, stored in push-down list location AD. A factor 
of 21600 is used with constants expressed in nmi to convert to 
revolutions in deriving PHIE (see "AUGEKUGL" quantities). 

pMGA: Value of "positive middle gimbal angle", program notation "+MGA", 
scale factor BO, units revolutions. Set to cause a display of 
-0.02 degrees if nominal flow would require a display but the 
bit indicating valid fREFSMMA^ is not set; set to cause a display 
of -0.01 degrees if computation flow does not require angle display 
(e.g. not the final pass through rendezvous computations). Other- 
wise, should be a positive number in range 0-90 degrees (or 270- 
360 degrees) . Quantity therefore shows the value of the middle 
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gimbal angle (if positive) when the tX axis is aligned with the 
impulsive thrust direction. Cell also loaded in '’PR0G22” with ^ 
similar information, except that angle range there is only 0-90 . 

R. , ; See Rendezvous Computations. Cell also used as a communication one 
with "GET.LVC" to define local-vertical coordinate system. 

R : Position vector used to achieve a constant state vector for use 
within display computations. Rescaled in "SR30.1" to scale factor 
B27 if moon centered (otheirwise, left at original B29 scaling), 
units meters. Also loaded in "NEWRNW" with present position 
vector for use in "S6l.2" computations. Also loaded in "HAVEBASE" 
with GSM state vector information at required time, scale factor 
B29, units meters, for use in "COMPDISP" for R31/R34. 

R , : Value of vehicle position vector towards earth computed in 

"SBANDANT" (initially in reference coordinates, then converted 
to IMU coordinates), scale factor B29, units meters, stored 
in push-down list location 2D (subsequently converted to 
navigation base coordinates). Program notations "R" and "ROM". 

R^.: See Coordinate Transformations. 

L 

RANGE: Value of magnitude of vector difference between LM and GSM 
position vectors computed in "COMPDISP" (for R31/R34), scale 
factor B29, units meters. Also used to contain out-of -plane 
position information, same units and scaling, computed in R36. 
Position information displayed (this cell) in R1 of N53, N54> 
and N96 (cell also is time-shared with other Information). 

RAPO: Value of apocenter radius computed in "SR30.I", scale factor 
B29(earth) or B27(moon), mits meters, stored in push-down 
list location I6D. 

RCV: See Orbital Integration. 

RHOSB: Value of "pitch angle" computed in "SBANDANT", scale factor BO, 
units revolutions, in range -90° to +90°. It is displayed in 
R1 of N51. 

RLS: See Coordinate Transformations. 

RPADTEM: Value of base radius used in R30, scale factor B29(earth, pad 
radius) or B27(moon, landing site radius magnitude), units meters. 

RPER: Value of pericenter radius computed in "SR30.I", scale factor 
B29(earth) or B27(moon), units meters, stored in push-down list 
location 14D . 

RRATE: Value of component of velocity difference between CSM and LM 

vehicles (negative if approaching), scale factor B7, units meterg/ 
centi-second. Also used for CSM out-of-plane velocity information 
for R36, and displayed (with this tag) in R2 of N53j N54j and N96. 
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RRATE2: Value of LM out-of-plane velocity information computed in R36, 

scale factor B7, imits meters/centi-second, displayed in R3 of N96. 
Same cell used for e.g. RTHETA. 

RSPmRREC: Value of dovmrange recoveiy range error (predicted flight cen- 
tral angle minus target central angle, scaled to revolutions), scale 
factor BO, units revolutions, computed in "DELRSPL" for R30 
computations in POO or Pll. Target central angle is computed as 
an arc cosine in the range between 0 and 5 (O and 180°), with no 
account taken of flight direction. Program notation "RSP-RREC". 

If TFF is 0 or -MAX, the predicted flight central angle is 
considered 0. Cell is displayed in R1 of N50 using K „ 

(see Noun Definitions). 

RTGO: Predicted central angle between the altitude specified by 
and splash, scale factor BO, units revolutions, computed in 
"S6l.2". The most significant half is loaded into JJ for telemetry 
purposes at end of "S6l.2". 

RTHETA: Display angle information computed for R3I and R34} scale factor 
BO, units revolutions, displayed in R3 of N53 and N54* Also time- 
shared with other quantities (such as RRATE2). 

SINDELF: Sine of the "transfer angle" between TFRMAG and TFRTERM, scale 

factor Bl. Computed by the same subroutine as that used for COSDELF. 

T , : Predicted time required to traverse the entry angle PHIE, scale 
factor B28, \jnits centi-seconds, left in MPAC, when exit from 
"AUGEKUGL" routine. ^ 


T^^: See Orbital Integration. 

T . Value of state vector time tag sampled at start of "V82G0FF1", 

^ scale factor B28, units centi-seconds. After complete "SR30.I" 

is replaced by (T - T +82^’ "age" of the TFF or mTPER 

value which has been computed. This value is then used to update 
TFF or mTPER to give a time origin of present time (regardless of 
the time entered via NI6) . TFF and mTPER are then updated once a 
second in "TICKTEST" so as to maintain their status as time from 
"now" to the specified point. 


TFF: Predicted time of free fall to specified altitude (negative if 
not yet there), scale factor B28, units centi-seconds. It is 
set to -MAX if trajectory does not intersect the specified 
altitude (either completely above or completely below it); it 
is set 0 for indeterminate computation (near perigee for hyperbola 
or parabola). Updated as discussed for mTPER ^f mTPER cell is 
not updated, of course), for Average-G off (if on, computed 
on a periodic basis). 

TFFldALF: Value of | semimajor axis) computed in "TFFCONIC", program 
notation "TFFl/ALF", stored in push-down list location 22D. 

Scale factor information partially contained in X2; if X2 = 0, 
scale factor B22(earth) or B20(moon), units meters. 
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TFFALFA: Value of reciprocal of semimajor axis computed in "TFFCONIC", 
stored in push-dov/n list location 26D. Scale factor information 
partially contained in XI; if XI = 0, scale factor B-26 (earth) 
or B-2/(.(moon) . 

TFFDEN: Value of denominator quantity, stored in push-dovm list location 
OD. If TFFQl negative, scale factor Bl6 (earth) or B15(moon); if 
TFFQl positive, scale factor B3. Used as numerator in "TFFELL" . 

TFFdRTMU: Value of reciprocal of square root of mu of primary body, 
scale factor B-17(earth) or B-14(moon) . If loaded in "S61.2", 
is reciprocal of root mu' (i.e. a mu multiplied by 1.0012, see 
^Idrtmu^’ provided not ^ ®290,000 ft. Stored in 30D. 

TFFNP: Value of semilatus rectum (p, called LOP, or lower-case p, in 
comments field) computed in "TFFCONIC", stored in push-down list 
location 28D. Scale factor information partially contained in XI; 
if XI = 0, scale factor B38(earth) or B36(moon), units meters. 

TFFNUM: Value of n-umerator quantity, stored in TFFX cell, scale factor 
B29 (earth) or B27(moon) if TFFQl negative; scale factor Bl6( earth) 
or B15(moon) if TFFQl positive. Used as denominator in "TFFELL". 

TFFQl: Intermediate quantity in time-of -flight calculation (function of 
present state vector), scale factor Bl6(earth) or B15(moon), stored 
in push-down list location 14D. 

TFPQ2: Intermediate quantity in time -of -flight calculation (function of 
terminal state vector), scale factor Bl6(earth) or B15(moon), stored 
in TFFTEM cell briefly. 

TFFRTALF: Square root of jlFFALFA), computed in "TFFCONIC", stored in push- 
down list location 24D. Scale factor Information partially contained 
in X2; if X2 = 0, scale factor B-lO(earth) or B-9(moon). 

TFFRZ: Intermediate qiiantity ("l/Z") computed in "TFFELL", scale factor 
B-ll(earth) or B-lO(moon), stored in TFFTEM cell. 

TFFTEM: Cell used for several purposes during the performance of the 
time -of -flight calculations; when calculation has a normal exit, 
contains the value of a quantity used in subsequent calculations, 
with scale factor information partially contained in XI. If 
XI = 0, scale factor is B59(eaJ^t.h) or B55(nioon). 

TFFVSQ: Value of complement of square of velocity divided by mu, computed 
in "TFFCONIC", scale factor B-20(earth) or B-l8(moon) . 

TFFX: Argument for power series expansion in time -of -flight calculation, 
scale factor BO, stored in push-down list location 3AL>* 

TFFZ: Intermediate quantity ("Z") computed in case "TFFELL" is not 
entered, scale factor B13(earth) or B12(moon), stored in TFFTEM 
cell. 
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TFRMA.G: Magnitude of R computed in "TFFCONIC" and stored in push-dowi 
list location 12D°al "RMAGl", scale factor B29(earth) or B27(nioon), 
units meters. A normalized version, with niomber of shifts required 
contained in XI, is stored in push-down list location 32D with 
program tag "NRMAG" . Distinction in type of value employed is not 
made in programmed equations description. 

TFRTERM: Value of terminal radius used as input argument for time -of - 
flight routines. With scale factor B29(earth) or B27(nioon) is 
stored in push-dovm list location 18D, tag "RTERM"; shifted left 
by -XI places (to give same scaling as normalized TFRMAG) is 
stored in NRTERM, push-down list location 16D. Distinction in 
type of value employed is not made in programmed equations 
description. 

THETAFR: Value of predicted central angle of travel to target from 
present location, computed in "DELRSPL", scale factor BO, units 
revolutions. Program notation "THETA(l)". 

TTE: Time from arrival at altitude specified by scale factor 

B28, units centi-seconds, computed in "S6l.2^ and in "SERVICER" (if 
05GSW bit =0) for N63 display, negative before arrival. 

TTEl; Time from arrival at altitude specified by scale factor 

B28, units centi-seconds, computed in "S6l.2". it is measured 
from the time contained in MM, and is positive before arrival. 

TTE2: Complement of the GET at which vehicle will arrive at scale 

factor B28, units centi-seconds, computed in "S6l.2" and used in 
"SERVICER" to update TTE. 

UN^,.: Unit vector computed in R36 perprendicular (i.e. v r) to the 
~^\rajectory plane of the CSM (normally the "active" vehicle), scale 
factor Bl. 

UNI: See Entry Computations. Computed in "NEWRNVN" also. 

UNP,^^/: Unit vector computed in R36 perpendicular (i.e. y r) to the 

trajectory plane of the LM (normally the "passive" vehicle), scale 
factor Bl. 

URH: Value of unit terminal position vector computed in "S6l.2", scale 
factor B2. 

URONE: Value of unitR computed in "NEWRNVN" for use in "S6l.2", scale 
factor Bl. 

V , , : See Burn Control. In "CALCN83" is used to keep cumulative sum 

goody velocity increments in reference coordinates, with DELVIMU 

being the corresponding information in control coordinates . The 
notation also "DELVCTL". 

V . : See Burn Control. 

-gtig 

V. : See Rendezvous Computations. Cell also used as a communication one 
with "GET.LVC" to define local-vertical coordinate system. 
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—one' vector used to achieve a consistent state vector for use 

within display computations. Rescaled in "SR30.1" to scale factor 

B5 if moon centered (otherwise, left at original B7 scaling), 

units meters/centi-second. See R 

—one 

V Value of V ^ multiplied by TFFdRTMU in "TFFCONIC", scale factor 

oxiG P-L on© 

B-lO(earth) or B-9(moon), program notation "VONE"'. 


^ass 36 ‘ 


Valiie of LM velocity vector computed in R36, scale factor B7, 
units meters/centi-second. 


V82FLAGS: Single precision cell used to control performance of R30 

(initiated by verb B2) if Average-G is off. Initialized to zero 
in "V82G0FLP" and set to 1 or 2 at end of "V82G0FF1" to signify 
that mTPER or TFF respectively should be incremented by "TICKTEST" : 
non-zero setting also used in "V82GOFLP" to initiate vi6N44 display, 
since such a setting signifies that data are available for display. 


VBARSQ: Value of square of normalized velocity information used to 
compute GMAK in "S6l.2", scale factor B2, stored in push-down 
list location OD. 

VCV: See Orbital Integration. 

VIO: Value of predicted velocity at altitude specified by , 

scale factor B7, units meters/centi-second, including an 
approximate correction for the drag loss in reaching this 
altitude (the nominal 0.05 g point). 

VMAGI: See Boost Computations. 

VFRED: Value of predicted velocity at an altitude of 400,000 feet 

above Fischer radius computed in "S6l.2", scale factor B7, units 
meters/centi-second. See also Return to Earth Computations. 

VTERM: Value of velocity (from vis viva integral) at TFRTERM, scale 
factor B7(earth) or B5(moon), units meters/centi-second, stored 
in push-down list location OD (also used as communication cell 
with "AUGEKUGL"). 

YAWANG: Cell used in "SBANDANT" to contain value of yaw antenna pointing 
angle (0 if vectors not defined well), scale factor BO, units 
revolutions, loaded into GAMMASB for display. YAWANG itself is 
push-down list location 20D. 
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Digital Autopilot Entry Routines 


CM/DAPON Entered from "P62" 

Set bits 15-14 (DAPBITl, DAPBIT2) of FLAGVffiDb = OO 2 
T5L0C - "T 5 ID LOG" 

T6L0C = ''T5IDL0C" 

Channel 6=0 
Channel 5—0 

Set bits 15-13 of DAPDATRl = 0 

If bit Il(GAMDIFSW) of FLAGWRD6 = 0: 

Delay 0.5 second (by putting job to sleep via "DELAYJOB") 
and repeat check of bit 11 

RCSFLAGS = 77776g (sets bit 3 to l) 

P63FLAG = -1 

JETAG = 0 

PAXERRl = 0 

Inhibit interrupts 

ALFACOM = ALFAdlSO 

BETACOM = BETAdlSO ("least significant half" of ALFAi) 
ROLLHOLD = ROLLdlBO 

ROLLC = ROLLdlBO (rescaled to BO revolutions) 
sp 

Set bit 12(CMDAPARM) of FLAGWRD6 = 1 
Set bit l(NODOV37) of FLAGWRD2 = 1 
Release interrupts 
Proceed to "P62.1" 

READGYMB Called initially by "P62" 

CMdGYMDT = CMdGYMDT + 10 

If bit 6(N0IMJDAP) of IMODES33 =1: (IMU data not usable) 

Set bit l(GYiy[DIF) of FLAGWRD6 = 0 
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(If bit 6 of IMODES33 = l) : 

Channel 6=0 
Channel 5=0 
JETAG = 0 

OLDELi =0 (i = P,Q,R) 

GAMDOT = 0 

Call "READGYMB" in 0.1 second 
End of task 

Set AOG = CDU^ and TS = AOG 

iiDELAOG = TG - AOG (ones complement diffei'ence fuimed) 
Set AIG = CDUy and TS = AIG 

mDELAIG = TS - AIG (ones complement difference formed) 
Set AMG = CDU^ and TS = AMG 

Zi 

mDELAMG = TS - AMG (ones complement difference formed) 
If bit 2(CMDSTBY) of FLAGWRD6 = 0: 

Channel 6—0 

Channel 5—0 

End of task 

If bit l(GYMDIF) of FUGWRD6 = 0: 

Set bit l(GYMDIF) of FLAGWRD6 = 1 
JETAG = 0 

OLDELi = 0 (i = P,Q,R) 

GAMDOT = 0 

Call "READGYMB" in 0.1 second 
End of task 

Call "READGYMB" in 0.1 second 
Proceed to "BODYRATE" 
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I 

I 

BODYRATE i 

i 

TS = - mDELAMG sin AOG - mDELAIG cos„^ AOG cos„^ AMG | 

sp °P sp 1 

TS^ = TS - OLDELQ ! 

OLDELQ = TS 

QREL = TS + 4 TS^ ' 

i 

TS = mDELAIG singp AOG coSgp AMG - mDELAMG coSgp AOG I 

I 

TS]_ = TS - OLDELR 
OLDELR = TS 
RREL = TS + J TS^ 

TS = - mDELAOG - mDELAIG sin^„ AMG 

sp 

TS2_ = TS - OLDELR 

OLDELR = TS 
RREL = TS + i TS^ 

If GAMDOT 7^ 0: 

RREL = RREL + K . ^ GAMDOT sin (- ROLLdlSO) 
sintr sp 

QREL = QREL - GAMDOT cos ROLLdlSO 

sp 

RREL = RREL - K ^ GAMDOT sin (- ROLLdlSO) 
costr sp 

If bit 12(CMDARARM) of FLAGWRD6 =0, End of task 

Set TIME5 to cause program interrupt #2 in 10 milliseconds 

T5L0C = "ATTRATES" 

End of task 


vJ 
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ALFAdlSO = ALFAdlSO + QREL, in range t 180° 

CALF A = cos^^ ALFAdlSO 
sp 

SALFA = sin_^ ALFAdlSO 

bp 

PHIDOT = PREL CALFA + RREL SALFA 
BETADOT = RREL CALFA - PREL SALFA 
BETAdlSO = BETAdlSO + BETADOT 

ALFAdlSO = ALFAdlSO + PHIDOT sin^^ BETAdlSO, in range t 180° 

bp 

AK^ = ALFACOM - ALFAdlSO, in range ± 180° 

QAXERR = AK^ 

ROLLTM = ROLLdlSO + PHIDOT, in range ± 180° 

ROLLdlSO = ROLLTM 

RAXERR = BETACOM - BETAdlSO 

If bit 3(05GSW) of FLAGWED6 = 0, proceed to "EXDAP" 

CMDAPMOD = -1 

AK 2 _ = 77776g (one bit negative) 

AK 2 = 77776g (one bit negative) 

TS^ = RREL - K . ^ PREL 
1 sintr 

TS = I sgn TS^ 

“ P=il - 

TS = 0 (inside deadband) 

'^^3 “ Vjetcdrpg 
TS == 1 sgn OREL 

If (QRELI - <0: 

TS = 0 (inside deadband for pitch rate damping) 

Proceed to "EXDAPIN" 
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Channel 5 - TS3 + 
If JETAG K< 0; 

If JETAG = 0; 


PAXERRl = PAXERRl - CALFA PHIDOT 
Proceed to "CM/FDAIR" 


JNDX = - 1 


mVTdlGO = - K 


2tdtcd 


PREL 


(scaled B-2 revolutions /DAP cycle) 


TS = - ROLLdlSO, rescaled to scale factor BO revolutions 

If bit 4(LATSW) of FLAGWRD6 = 1: 

TS, = i + i + ROLLC modulo 1 (the 1 is 360°) 

1 sp 

TS^=TS - h - h 

LCXd360 = TS^ + TS^ modulo 1 

TS - mVTdlBO | mVTdlBOl / CALFA + LCXd360 + ^ sgn LCXd360 

(sgn sets term 0 if 
LCXd360 = 0) 

If (TS(>1: (the 1 is 360°) 

LCXd360 = LCXd360 - 1 sgn TS 

If bit 4(LATSW) of FLAGWRD6 = 0: 

Set bit 4(LATSW) of FLAGWRD6 = 1 

LCXd360 = ROLLC + TS modulo 1 
sp 

LCXd360 == LCXd360 CALFA 
If CMDAPMOD = 1: 

JETAG = 0 


Proceed to "CM/FDAIR" 

If CMDAPMOD = -0: 

• LCXd360 = 0 

ERROR^ = LCXd360 (for* telemetry) 
PAXERRl = LCXd360 
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Rescale mVTdlSO to scale factor B-1 revolutions/DAP cycle. 
mVTdlSOE = mVTdlSO 


VSfWWPI = mVTdlSO^ 

TS = LCXd360 + - VSmAPI) 

If TS ^ 0; (point in left half plane) 


sgn mVTdlSO 

(if mVTdlSO = 0, 
sgn term set O) 


mVTdlSO = - mVTdlSO 


LCXd360 = - LCXd360 
JNDX = - JNDX 


Proceed to "DZl" 

If 2 “ TS 0, proceed to "DZl" (point in right half 

plane ) 

If VSQd/fAPI - K <<0: 

vsqmn ^ 

If bit 1 of CMDAPMOD =1; (i.e. -0, since +1 already exit) 

ROLLHOLD = ROLLTM 

If bit 1 of CMDAPMOD = 0: (i.e. +0 or -l) 

ROLLHOLD = ROLLC , rescaled to B-1 revolutions in 
Chamisl 6 = 0 * 1®°° 

VDTdlSO = 0 (point in velocity deadzone) 

JETAG = 0 

Proceed to "CM/FDAIR" 

JNDXl = - JNDX (point in b\iffer zone) 

VDTdlSO = - mVTdlSO 

T , = 0 
onl 

Proceed to "GET0N2" 


DZl 

If VSQdAAPI - K^3q^^0: 

IfLCXd360 + mVTdlSO - ^ 0: 

If bit 1 of CMDAPMOD = 1: 

ROLLHOLD = ROLLTM 

If bit 1 of CMDAPMOD = 0: 

ROLLHOLD = ROLLC , rescaled to B-1 revolutions 

in range ± 180° 
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(If LCXd360 + mVTdlSO - K . 

xmind360 

Channel 6=0 
VDTdlSO = 0 
JETAG = 0 

Proceed to "CM/FDAIR" 

JNDXl = - JNDX 

XDd360 = i VSQdAAPI + LCXd360 - K 


<ro): 


■xsd360 


TS^ = XD6360 + 

If TS2 < 0: 

VDTdlSO = XDd360 

QREG = ZRBG (positive non-zero) 
If TS^ 0: 

QREG = +0 


VDTdlSO 


K 


'mviiid360k (notation also "-VMT/lSO”) 

■'onl = ■'iSOdSatl <''”‘‘1®° 


If T , ^ 0: 
onl'* 


If QREG > 0: 

VDTdlSO = - mVTdlSO 

T =0 
onl 

If QREG = 0: 

JNDX = JNDXl 


T = - T 
onl onl 


Proceed to "GET0N2" 
GET0N2 


’^on2 = 2 '^ISOdSatt 


If T 


on2 
T 


< 0 : 

- T 


on2 on2 

JNDXl = JNDX 


If VDTdlSO = 0: 


rp — Q K 

off 2jett 
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If VDTdlSO i 0: 


TS = LCXd360 + \ (mVTdlSO - VDTdlSO) - i VDTdlSO 

If Its) - 2 |VDTdl80| ^ 0: (implemented by division of 

TS shifted right 14 places by 
T = 2 K . VDTdlSO and check of A: the 

off 2jett ,1211 comes about from TS scaling 

If |TS| - 2 |vDTdl80| 40: of BO and VDTdlSO of B-l) 

T = K„ . . , TS / VDTdlSO 
off 2jett ' 

T = K T 

^onl 4jett onl 

'^on2 4jett on2 

JETAG = 0 

SWdNDX = 1 

TUSED = TUSED + TIMEl + 8192 + 8192, modulo 2^ 

TUSED = TUSED + 

If Tqj^ 2 _ - 2 4s 0: (The "2” in this and subsequent equations is 

in units of centi-seconds, as are the times). 


Toni -T 

If T^,i-2>0: 


TIBITS = K 


prjcd 


JNDX 


TUSED = TUSED + T 


onl 


If TUSED > 0: 


T , = 0 
onl 


^off 


-1 


Ton2 == -1 


Proceed to "JETCALLl" 


If 


T 

off 


- 2 <^ 0 : 


Toff 


-1 
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If T - 2 > 0: 
off 

TUSED = TUSED + T 


off 


If TUSED > 0: 


T ^0 

off 

T =- -1 

on2 


Proceed to "JETCALLl" 


tn2 - 2 « 0^ 
tn2 = 

Proceed to "JETCALLl" 
T2BITS K 

^ ^ JNDXl 
TUSED = TUSED + T 


on2 


If TUSED > 0: 


'^on2 "" ° 

Proceed to "JETCALLl" 


JETCALLl 

OUTTAG = 0 
NUJET = 0 


TBITS = 0 


S-t TS^ - T^^i and T^^^ = 0 

TS 2 = TIBITS (TIBITS written over with meaningless data) 

If TS^> 0, proceed to "JETCALL2" 

If TS^ = 0, proceed to "JETCALL3" 

If TS^^ < 0, proceed to second line of "JETCALL3" 

JETCALL3 


NUJET - TS 2 

Set TS — T „„ and T = -1 
1 oil oil 

TS 2 “ TBITS (tbits written over with meaningless data) 
If TSj_> 0, proceed to "JETCALL2" 
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If TS3_ = 0: 

NUJET = TS^ 

Set TSt = and T „ -1 

1 on2 on2 

TS2 = T2BITS (T2BITS written over with meaningless data) 

If TS^> 0, proceed to "JETCALL2" 

If TS;l "" 0 = 

NUJET = TS2 

Proceed to third line of "JETCALL2" 

JETCALL2 

NUJET = NUJET + TS2 

Call "JETCALL" in TS^ centi-seconds 

Channel 6 = NUJET 

If OUTTAG > 0, End of task 
Proceed to "CM/FDAIR" 

JETCALL 

OUTTAG = 2 

If bit 2(CMDSTBY) of FLAGWRD6 = 1: 

TS 2 = 0 

Proceed to "JETCALL3" 

Channel 6=0 
End of task 
CM/FDAIR 

AKq = i PAXERRl (gives full scale of 67i°) 

If SWdNDX <0: . 

SWdNDX = - SWdNDX 
Perform "NEEDLER” 

T5L0C = "T5IDL0C'' 

Resume 

SWdNDX = 3 - SWdNDX 




/ 
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If SWdNDX > 0: 

CMTMTIME = TIMEl 
SWdNDX = - 13 
TS = SWdNDX - 1 
ENDBUF^g = (PREL, OREL, RREL) 

T5L0C = "T5IDL0C" 

Resume 

EXDAP 

CMDAEMOD = +0 

If ICALFAi - < 0: (i.e. in range 45 to 135 degrees) 

CMDAPMOD = +1 
JETAG = -1 

If P63FLAG = 1 , set P63FLAG - 0 

TS^ = - RAXERR sgn SALFA (O for SALFA = 0) 

PAXERRI == TS^ , rescaled to scale factor BO, units revolutions 

TS2 = - BETADOT sgn SALFA (O for SALFA = O) 

Perform "BIASEDZ" 

Channel 6 = K 

Pi'jcd^g 

RAXERR = (ROLLHOLD - ROLLdlBO) sgn SALFA (O for SALFA - O) 

If (CALFA1-K^^5.^>,0: 

If CALFA >0: 

If P 63 FLAG = 0 : 

P 63 FLAG - -1 

Call "WAREP 62 '' in K centi-seconds 

nsec 

If JETAG < 0: 

JETAG = 0 
Channel 6=0 

If CALFA < 0: 

CMDAPMOD = -0 

RAXERR = RAXERR sgn CALFA 
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AK2 = RA.XERR 

TS;,_ = RAXERR 

TS 2 - RREL 

If CMDAFMOD = +0: 

TS 2 = BETADOT 

Perform "BIASEDZ” 

TSo - K . , , 

3 yjetcd^g 

TS3_ = QAXERR 

TS 2 = OREL 

Perform "BIASEDZ” 

Proceed to "EXDAPIN" 

BIASEDZ Entered with attitude information in TS^^ (L-register) and 

rate information in TS 2 (A-register) . 

TS^ = TS^^ - sgn TS 2 (gives biased error; sgn sets term 

zero if TS 2 = O) 

TS = -I sgn TS]_ 

“ ItSiI - Vawlm < 

TS = 0 

TS = 0 


TS^ = 1 sgn TS 2 

“ < 0 : 

TS, = 0 
k 

TS = TS + TS^, with magnitude limited I (done in calling routine 

by an "or" function) 

Return 
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Quantities in Computations 

See also list of major variables and list of routines 


AIG: Value of CDU sampled by "READGYMB", single precision twos comple- 
ment, scale factor B-1, units revolutions ("inner gimbal angle"). 

AK^ (i = 0-2): See Digital Autopilot Interface Routines. 

ALFACOM: Single precision value of commanded "pitch" angle, scale factor 
B-1, units revolutions. Set to ALFAdlSO in "CM/DAPON", and to 
Caifapad ^ "P62.1" (see Entry Preparation). 

ALFAdlSO: See Entry Computations. 

AMG: Value of CDU^ sampled by "READGYMB", single precision twos comple- 
ment, scale factor B-1, units revolutions ("middle gimbal angle"). 

AOG: Value of CDU^^ sampled by "READGYMB", single precision twos comple- 
ment, scale factor B-1, units revolutions ("outer gimbal angle"). 

BETA.COM: Single precision value of commanded "yaw" angle, scale factor 
B-1, units revolutions. Set to BETAdlSO in "CM/DAPON", and to 
zero in "P62.1". 

BETAdlSO: See Entry Computations. 

BETADOT: Single precision value of rate of change of "yaw" angle, 
scale factor B-1, units revolutions/deci-second . 

CALFA: Single precision value of cos ALFAdlSO, scale factor BO, after 
ALFAdlSO updated only b;y QREL (see "ATTRATES") , 

C'MDAPMOD: S.ingle precision quantity used to control the performance of 
the entry DAP. Individual values have the following meanings: 

Significance 

Bit 3(05GSW) of FLAGWRD6 = 1 (value set in "ATTRATES")- 
Bit 3(05GSW) of FLAGWRD6 - 0 and CALFA is at least 
^cA5im magnitude with negative sign (causes damping 

only, with LCXd360 set to O). Value set in "EXDAP". 

Bit 3(05GSW) of FLAGWRD6 — 0 and CALFA magnitude less 
than Value set in "EXDAP" . 

Bit 3(05GSW) of FLAGWRD6 = 0 and CALFA at least 
in magnitude with positive sign. Value set in 
"EXDAP" . 

Scale factor is B14. 


Value 

-1 

-0 

+1 

+0 
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CMdGYMDT: Single precision call time, scale factor Blk, units centi- 

seconds, used to permit proper restart time to be set for performance 
of "EEADGYMB" . Initialized to 5 in "READACCS" (when the base 
time used for the restart is also set), giving "READGYMB" 
performance 5 cs out of phase with "READACCS". 

CMTMTIME: Value of TIlIEl loaded for telemetry purposes in "CM/FDAIR", 

scale factor B14, units centi-seconds . Cell is the same as UPBUFFlO 
(see Uplink Processing). 

DAPDATRl: See Digital Autopilot Interface Routines. 

ENDBUF: Set of cells used for telemetry of (PREL, QREL, REEL), loaded 

in "CM/FDAIR" on alternate entries to entry DAP (every 0.2 seconds 
the cell set is loaded). Cell set loaded is indexed by a negative 
quantity, with ENDBUF-IA, ENDBUF-11, etc. used for successive PREL 
values. ENDBUF-IA is the same cell as UPBUFF+2 (see Uplink 
Processing) . 

ERROR^: See Digital Autopilot RCS Routines (loaded in "EXDAPIN" with the 

original value of LCXd360 (before sign reversal, if any), for telemetry). 

GAMDOT : See Entry Computations . 

IMODES33 • See IMU Computations . 

JETAG: Single precision quantity, scale factor B14, used to control the 
performance of the entry DAP. The "normal" value is zero; a 
setting to +1 is made by "SET.JTAG" (called every two seconds by 
"READACCS") to cause an update of roll output to be made.; a 
setting to -1 is made in "EXDAP" if the magnitude of CALFA is 
less than 

JNDX: Value of jet table index for time interval specified by T ^ 
scale factor BIA. Initialized to -1 near start of "EXDAPiP, 
and complemented subsequently if necessary. A negative value 
causes positive jets to be selected by indexing K ... The 
quantity is single precision. 

JNDXl: Single precision quantity, scale factor Blk, serving a similar 

function to JNDX, but for the jets controlled by the time interval 
specified by Tqj^ 2 - 

^ 2 jett’ precision constant, program notation "2JETT", scale 

factor BI 3 , units centi-seconds/entry DAP cycle. Value is 
400 X 2”-^, corresponding to 200 x 2 ~U^ q.e. a two-second 
entry D/\P cycle (for performance of roll command updates). 

^2tdtcd‘ precision constant, program notation "2T/TCDU", scale 

factor BI 3 , units (entry DAP period)/(CDU sample period). 

Value is 40 X 2 corresponding to 20 x 2 “U^ i.e. a two- 
second entry DAP cycle (to perform roll command updates) and 
a 0.1 second CDU sampling period (period of performance of 
"READGYMB"). Converts angular rates from units of revolutions/ 
deci-second to revolutions/DAP cycle. 
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\dsini' precision constant, program notation " 4 D/SLIM% scale 

factor B- 1 , units revolutions/deci-second . Value is I6348 x 
2 +, but used in the program in such a way (a check for overflow, 

i.e, magnitude of I6384 or more, on an argument decremented by 1) 
that the effective value is (I6384 - I6348 + 1), or 37 least 
increments, corresponding to 37 x 180 °’ x 2 -'^ x 10 = 4.065Vsec. 

The argument is decremented by 1 for convenience in forming the 
absolute value , 

K4. tt* Single precision constant, program notation '' 4 JETT", scale 
factor B 12 , units centi-seconds/entry DAP cycle. Value is 
800 X 2“^'-, corresponding to 200 x 2“12 (^f. 

^ 180 d 8 att' Single precision constant, program notation ''I8O/8ATT", scale 
factor B 4 , units of (revolutions/DAP cycle^)-!. Nominal value 
is O.6I8I3I87, corresponding to the reciprocal of: (9 .1 X (1/360) X 
2^ X 2 % where first term is acceleration (degrees/second^) , second 
converts to units of revolutions, third converts to units of 
DAP cycle^ (2 seconds each), and fourth is scale factor. Actual 
stored value is about O.6I8IO. Alternatively, 9.1 2 x 4.55. 

^c 45 im' precision constant, program notation "C 45 LIM", scale 

factor BO. Value is 11277 q = 4799 , but used in program in 
such a way (a check for overflow, i.e. a magnitude of I6384 or 
more, on an argument decremented by 1 for convenience in forming 
the absolute value) that effective value is (I6384 - 4799 + 1) = 

11586 X 2 = 0.707153, or about cos 45 °. 

Kcmdbs* Single precision constant, program notation "CM/BIAS", scale 

factor B- 1 , units revolutions. Value is 55 x 2 “^, corresponding 
to about 0.604°. 

K , : Single precision constant, program notation "COSTRIM", scale factor 
costr value 0 . 93969 , corresponding to cos (- 20 °). 

^ktrcs' Single precision constant, program notation "KTRCS", scale 
factor BO, value 0 . 5 . Value corresponds to 0.25 x 2 , where 
first term is "K''( "slope of line determining rate at which 
error reduced") and second is DAP roll cycle rate of 2 seconds. 

Single precision constant, program notation "-T- 3 ", scale factor 
BI4, units centi-seconds . Value is -203 x 2 ”^, corresponding to 
-2.03 seconds. See TUSED. 

Kj^vTOd 360 k‘ Single precision constant, program notation "-VM/36OK", 

scale factor BO. Nominal value is - 0 . 22222222 , corresponding 
to (- 1 ) X 20 X (1/360) X (1/0.25), where first term is an equation 
factor, second is "maximum roll rate limit" (degrees/second), third 
converts to revolutions, and fourth is reciprocal of "K" 

(cf. K, ). Program notation also "-VMT/I 8 O", for which would have 
scale rac?8r B-1, \inits revolutions/DAP cycle, where the "(I/O. 25 )" 
factor is 2 X 2^ (the first factor is two-second cycle, the 2nd is scale). 

^nsec* Single precision constant, program notation "NSEC", scale factor 

^^^*^B 14 , units centi-seconds. Value is 2100 x 2 “^, corresponding to 
21 seconds. Program comments indicate it is an approximation to 
the time required to travel 65 ° at a rate of 3 °/second. 
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K • j: Set of three single precision cells, program notation 
P^J^'^.tp/RjCODE", selected by means of an index having values 
-1, 0, +1. Values are: 


Index 

Cell 

-1 

0000 5g 

0 

OOOOOg 

+1 

00012g 


Channel 6 Jets 

#11, #9 (+ R) 

none 

#10, #12(- R) 


Channel 5 Jets 

# 3 , #1 (+ P) 

none 

#2, #4 (- p) 


K . : Single precision constant, program notation "SINTRIM", scale factor 

sintr -0.34202, corresponding to sin (-20°). Program comments 

indicate that this is trim angle for L/D =0.3. 


K : Single precision constant, program notation "VSQMIN", scale 
vsqmn units revolutions. Nominal value is 0.6l05006lE-3, 

corresponding to ( 2 / 360 )^ x ( 9 .l/ 360 )"^ x 2 ~'^ x 2 '^ x 2 “P, where 
first term is value of the square of "VHIN" (expressed in 
units of revolutions), second is acceleration (in revolutions/ 
second^), third converts acceleration to DAP cycles (cf. RpgodSatt^^ 
fourth converts VMIN to units of DAP cycles (from rev/sec), and 
fifth is scale factor. Actual value is about 0.6l035E-3> 00012g. 

K . Single precision constant, program notation "}ayiiy360", scale 

xmindjou gQ^ units revolutions. Value is 182 x 2 corres- 

ponding approximately to 4 x (I/ 36 O), where first term is value 
of "XMIN" (degrees), and second converts to revolutions. 

K JoAn- Single precision constant, program notation "XS/ 36 O", scale 
-xsdJbUfactor po, units revolutions. Value is 91 x 2“^, corresponding 
approximately to 2 x (I/ 36 O), where first term is value of "XS" 
(degrees), and second converts to revolutions. Tag also "BUFLIM". 

K . : Single precision constant, program notation "YAWLIM", scale factor 
yawxmg_^^ units revolutions. Value is I 6055 x 2“^^, but used in the 
program in such a way (a check for overflow, i.e. a magnitude of 
16384 or more, on an argument decremented by 1 for convenience 
in forming the absolute value) that effective value is (16384 - 
16055 + 1 ) = 330 least increments, corresponding to 330 x ( 36 O) 

X 2-15 = 3 . 625 °. 


K dtim’ Single precision constant, program notation "YDOTLIM", scale 
factor B-1, units revolutions/deci-second . Value is I 6366 x 
2“14, but used in program in such a way (cf. KL(jgj_jn) that effective 
value is 19 least increments, corresponding to^aoout 2 . 087 °/second . 

K . . Set of three single precision cells, program notation 
yj® °°iiyjeTCODE", selected by means of an index having values 
-1, 0, +1. Values are: 


Index Cell 

-1 00120g 

0 OOOOOg 

+1 00240g 


Channel 5 Jets 

#7, #5 (+ Y) 
none 

#6, #8 (- Y) 
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LCXd360: Single precision value of roll attitude error (shortest path 
if LATSW = 1 when enter computations, otherwise an enforced roll 
over the top) to be corrected, scale factor BO, units revolutions. 

mDEIAIG: Complement of change in AIG during previous 0.1 second, scale 
factor B-1, units revolutions/deci-second: is - AIG^. 

mDELAMG: Complement of change in AMG during previous 0.1 second, scale 
factor B-1, units revolutions/deci-second. Notation "-DELAMG". 

mDELAOG: Complement of change in AOG during previous 0.1 second, scale 
factor B-1, units revolutions/deci-second. 

rnVTdlSO: Complement of value of PREL, converted to units of revolutions/ 
DAP entry cycle (of 2 seconds). Initially computed with scale 
factor B-2, and subsequently rescaled to scale factor B-1. Program 
notation is VT/lBO". Complemented if point in left half plane. 

mVTdlBOE: Value of mVTdlBO for telemetry, scale factor B-1, original sign. 

NUJET: Single precision cell used to contain the jet pattern to be 
loaded into channel 6 in ''JETCALL2". 

OLDELi (i = P,Q,R): Previous values of "raw" PREL, QREL, and RREL, 

scale factor B-1, units revolutions/deci-second, used in "BODYRATE" 
to compensate for angular accelerations. The values used are 
the uncompensated PREL, QREL, and RREL (i.e. those derived based 
solely on CDU measurement data this cycle and the previous cycle). 

OUTTAG: Single precision quantity, scale factor BI 4 , set to 2 if 

"JETCALL" performed and to 0 if "JETCALLl" performed, indicating 
respectively that the exit from "JETCALL2" should be to End of 
task and to "CM/FDAIR" . 

P 63 FLAG: Single precision cell, scale, factor BIL, used for control of 
entry DAP sequencing. It is set to -1 in "CM/DAPON" and in 
"EXDAP" after "WAKEP62" calling computations initiated. It is 
set to 1 in "P 62 . 1 " after a response to the VO 6 N 6 I display, and 
if 1 is set 0 in "EXDAP" if jCALFAl is less than (a 0 

value permits "WAKEP62" calling computations). Intended to 
prevent P 63 from starting until response to VO 6 N 6 I display, 
and to avoid more than one "WAKEP62" call. It is set to -1 
in "P 63 ". 

PAXERRl: Single precision quantity, scale factor BO, units revolutions, 
containing the information to be loaded into AKq: during atmos- 
pheric entry, it is set to LCXd360 each two seconds, and updated 
by (CALFA)x(- PHIDOT) each 0.1 second between two-second roll 
updates . 

PHIDOT: Single precision value of rate of change of "roll" angle^ 

scale factor B-1, units revolutions/deci-second. Cos Beta - 1. 

PREL: Single precision value of "roll" body angular velocity, scale 

factor B-1, units revolutions/deci-second. It includes corrections 
for acceleration and GAMDOT, and is along the "X^ body axis". 


DPEN -17 


QAXERR: Single precision value of pitch attitude error (saved for 

telemetry purposes), scale factor B-1, units revolutions. It is 
also used in "EXDAP" , and is computed in "ATTRATES" . 

QKBGr: Computer single precision Q register (address 0002^), used to 
retain program control information in "DZl" (zero or non-zero 
value). After a TO (transfer control) order, Q is loaded vd.th 
the S-register contents corresponding to the address of the 
follovdng step (see 3420.5-27). 

QREL: Single precision value of "pitch" body angular velocity, scale 
factor B-1, units revolutions/deci-second (including corrections 
for acceleration and GAMDOT), measured along the "Yj^ body axis". 

RAXERR: Single precision value of yaw attitude error (saved for 

telemetry purposes), scale factor B-1, units revolutions. It is 
loaded in "EXDAP" .and "ATTRATES". 

RCSFLAGS: See Digital Autopilot Interface Routines. 

ROLLC: See Entry Computations. 

ROLLdlSO: See Entry Computations. 

ROLLHOLD: Single precision value of ROLLdlSO sampled when the entry DAP 
is started (in "CM/DAPON"), scale factor B-1, units revolutions, 
and used to provide error signal information for RAXERR in "EXDAP" . 
It is set to 0 in "KEP2'', and to ROLLC or ROLLTM in "EXDAPIN"/"DZ1" 

ROLLTM: Value of ROLLdlSO placed in a special cell for telemetry purposes 
scale factor B-1, units revolutions, single precision. 

RREL: Single precision value of "yaw" body angular velocity, scale 

factor B-1, units revolutions/deci-second (including corrections 
for acceleration and GAMDOT), measured along the "Z-^^ body axis". 

SALFA; Single precision value of sin ALFAdlSO, scale factor BO, after 
ALFAdlSO updated only by QREL (see "ATTRATES"). 

SWdNDX: Single precision cell, scale factor B14, used for indexing the 
proper ENDBUF cells to be loaded and to cause alternation in 
"CM/FDAIR" between update of attitude error needles and loading of 
ENDBUF. It is set to 1 in "P62" and also in "GET0N2", causing 
ENDBUF to be loaded (after initialization to -13). Negative 
values cause "NEEDIER" to be performed (by "CM/FDAIR"), and the 
cell is complemented each entrance to "CM/FDAIR". The cell is 
the same as UPBUFF+1 (see Uplink Processing). 

'^off* precision value of time, scale factor B14, units centi- 

seconds, required for "drifting" (between firing times of jets 
specified by Tq^^^ Ton2^ * Corresponding "jet pattern" (zero) 
is in TBITS. Cell set 0 if no waitlist call is to be made (i.e. 
if Toni small but the T value is such that the time delay 
would expire after the next two-second computing interval); cell 
set -1 if the time interval specified should be ignored (i.e. 
is too small or has already been used in "JETCALL3" or T^^^^ large). 


DPEN-18 



Toni* Single precision value of time, computed initially with scale 
factor B2, units DAP roll cycles, and subsequently rescaled to 
scale factor B14, units centi-seconds (by using K, . giving 

the required ”on time" for the jets in TIBITS . Cell set 0 if 
no waitlist call to be made such a size that jets should 

be left on for the full two-second DAP roll computing interval); 
cell set to -1 if the time interval involved should be ignored 
(i.e. is too small). 


bn2- 


Single precision value of time, same scaling as T giving 
the required "on time" for the jets in T2BITS . Cell set 0 if 
no waitlist call is to be made(because delay would expire after 
the next two-second computing interval); set to -1 if the time 
involved should be ignored (i.e. is too small, if 
is too big, or after being used in "JETCALL3"). 


TIBITS: Value of jet pattern to be sent for the time duration specified 
by T -] (contents loaded into NUJET for transmission via channel 6). 
These jets are required to go from present phase-plane point to 
the desired (or maximum) rate, where a coast interval (T^^^.) takes 
place and then the T2BITS jets are fired for T^^p 't'O drive to the 
origin. 

T2BITS: Single precision cell used to contain the value of the jet 
pattern to be sent for the time diaration specified by Tqj^ 2' 
see discussion of TIBITS . 


T5L0C, T6L0C: See Digital Autopilot Interface Routines. 

TBITS: Value of the jet "pattern" to be sent for the time interval 
specified by Tqj|.: it is set zero in "JETCALLl" (and used for 
symmetry in the program logic ) . 

TIME5: See Digital Autopilot Interface Routines. 

TUSED: Single precision cell, scale factor BIA, units centi-seconds, 
used to keep track of the time elapsed by bff’ 2’ 

in order to ensure that waitlist calls will not be set to e'l’apse 
after the start of the next computing cycle (2 seconds) of the 
roll entry DAP, and also to make sure that minimum-firing time 
constraints on the jets are not violated. Cell is set to 
- TIMEl in "SETJTAG" (about 5 cs, plus computing delays, before 
the two-second entry roll DAP cycle is performed), and then 
is set to TIMEl + TUSED (a nominal 5 cs) before the start of 
processing, with an additional 2(8192) added to compensate, if 
necessary, for TIMEl overflow. This 5 centi-seconds, plus the 
two-second cycle, is then subtracted (giving nominally - 200 
cs), to which 2 cs is added to avoid problems with the quantization 
of one cs for the waitlist and the fact that TUSED must exceed 0 
for branches in equation logic to be taken: the 5, 200, and 2 are 
combined into the one constant K^+ j^o • Additions of T , T and 
Ton2 TUSED (which starts at a nomnal -198 cs) are°Seste§ for 
a positive non-zero result indicating expiration of the two-second 
computing interval. 
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VDTdlSO: Single precision cell, scale factor B-1, units revolutions/DAP 

cycle, giving the velocity argument for use in computing jet on 
and off times. Can be loaded vdth either drift velocity, maximum 
allovfable velocity, or present velocity. If in deadzone, is 
loaded with 0 (for telemetry purposes). 

VSQd4API: Single precision cell, scale factor Bl, units revolutions, 
proportional to square of present "roll" body angular velocity 
divided by nominal acceleration mVTdlBO^) . 

XDd360: Single precision value of predicted intercept of attitude 
error axis (rate = O) by vehicle "trajectory", decremented by 
^xsd360’ factor BO, units revolutions. 

ZRBC; Hardware Z register (program counter), which can be used as a 
convenient source of a positive non-zero number (magnitude not 
significant). See QRBG. 
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Digital Autopilot Interface Routines 

T6RUPT Entered based on program interrupt #1, controlled by TIME6 

Proceed to address specified by T6L0C 

T5RUPT Entered based on program interrupt #2, controlled by TIME5 

If TIME5 50 cs, Resume (means TIME5 reset after interrupt 

was generated) 

Proceed to address specified by T5L0C 

HANDRUPT Entered based on program interrupt #10, controlled by 
manual controller inputs 

Resvime 

T5IDL0C 

Resume (if entered from TIMES interrupt, TIMES will cause an 
interrupt again in 2^ centi-seconds) 

SETJTAG Called by "READACCS" for entry DAP 

TUSED = - TIMEl 

JETAG = 1 

End of task 

STABLISH Entered for a V46E 

If bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = IO2: (TVC DAP) 

If bit 14 of DAPDATRI = 1: (iM-on) 

Perform "SWICHOVR" 

Proceed to "PINBRNCH" 

Proceed to "ALM/END" 

Set bit 9(S4B Takeover Enable) of channel 12 = 0 

TS = (bits I4-I3 of DAPDATRI, shifted right 12 places) (to bits 2-1) 
Inhibit interrupts 
If TS = 00^: (no DAP) 

Perform "ZEROJET" 

HOLDFLAG = 1 
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(If TS = OO^): 

T5LOC = "T5IDLOC" 

Set bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = 0 
Proceed to "PINBRNCH" 

If TS = ll^: (Sat\im DAP) 

Proceed to "SATSTKCN" 

Perform "RCSDAPON" (TS = 01^ or IO 2 , for RCS DAP) 

Proceed to "PINBRNCH" 

DAPDISP Entered for a V 48 E (this is Routine 03 ) 

If bits 15-14 (DAPBITl, DAFBIT2) of FLAGWRD6 = lO^: (TVC DAP) 
Proceed to "ALM/END" 

Perform "TESTXACT" 

Establish "DONOUN 46 " (priority 10^) 

8 

End of job 
DONOUNAb 

TS = 0446 

vn 

Proceed to "GOXDSPF": if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

If bit 4 of DAPDATRl = 1 : (maximum deadband specified) 

Set bit 12(MAXDBFLG) of FLAGWRD 9 = 1 

If bit 4 of DAPDATRl = 0: 

Set bit 12(MAXDBFLG) of FLAGWRD 9 = 0 (bit used in "INITSUB") 

Perform "S41.2" 

TS = 0647,,„ 
vn 

Proceed to "GOXDSPF": if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise , proceed to previous line 
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If bits 14-13 of DAPDATRl 7^ 00^: 

If bits 14-13 of DAPDATRl 7^ ll^: 

Inhibit interrupts (DAPDATRl first digit = 1,2, 5,6) 
Perform "MASSPROP" 

Release interrupts 
Perform "S4O.I4" 

TS = 0648 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

Proceed to "ENDEXT" 

SETMAXDB 

ADB --- K ,, 
maxdb 

Set bit 4 of DAPDATRl == 1 
Return 
SETMINDB 

THETADX = CDU 

“B = "^ndb 

Set bit 4 of DAPDATRl = 0 
Return 

STICKCHK (Entered with TS set to control pattern) 

PMANWDX = bits 2-1 of TS 

YMAMDX = bits 4-3 of TS, shifted right 2 places (to bits 2-1) 
RMANNDX = bits 6-5 of TS, shifted right 4 places (to bits 2-1) 
Return (Error if bits 15-7 of TS non-zero) 
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SPSOFF Entered from "AUTO 37 ", "ENGINOFF", "V97E", and "V97T" 

Inhibit interrupts 

T ^ = T 
evt now 

Set bit 7(ENG0NFIG) of FLAGVffiD5 = 0 
Set bit 13(SPS Engine On) of channel 11 = 0 
Set bit 14 ( 3/3 Cutoff) of channel 12 = 1 
If TVCPHASE ^ -1: 

If bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = 10^: (TVC DAP) 

If IrEPFRACI ^ 0 : 

PACTOFF = DELPBAR 

sp 

YACTOFF = DELYBAR 

sp 

Return 

TVCZAP 

Set bits ll(Disengage Optics DAC), 8 (TVC Enable), and 2(Enable 
Optics CDU Error Counters) of channel 12 = 0 

OPTIND = -1 ("DAC" is digital -to-analog converter) 

NVWORDl = +0 

Set bit ll(TIMRFLAG) of FLAGWRD 7 = 0 
Return 

PRE40.6 Called by "V97E" or restart group 6.2 

If bits 15 - 14 (DAPBIT 1 , DAPBIT2) of FLAGWRD 6 = 10^: (TVC DAP) 

End of task 
MRKRTMP = -1 

CNTR = +1 (seirves as flag that entered "S 4 O. 6 " from here) 

Proceed to "S 4 O. 6 " 

S40.6 Called by "P 4 OSXTY" 

OPTIND = -0 

Set bit 2 (Enable Optics CDU Error Counters) of channel 12 = 0 

Set bits 11 (Disengage Optics DAC) and 8 (TVC Enable) of channel 12 = 1 
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Delay 0.06 seconds 

Set bit 2(Enable Optics CDU Error Counters) of channel 12 = 1 
Delay 0.02 seconds 

If CNTR> 0: (i.e. from "PRE 4 O. 6 ") 

TVCPITCH = PACTOFF - 0 (avoid loading vd-th +0) 

TVCYAW = YACTOFF - 0 (avoid loading with +0) 

Set bits 12-11 (Gate output from TVCPITCH & TVCYAW) of 
channel 14 = 1 

End of task 

If MRKETMP> 0: 

Perform the following for i = PITCH and then i = YAW, with 
j = 11, 12 respectively: 

output from TVCi) of channel 14 = 1 

output from TVCi) of channel 14 = 1 

output from TVCi) of channel 14 = 1 


TVCYAW = YACTOFF - 0 

Set bits 12-11 (Gate outputs from TVCPITCH & TVCYAW) of 
channel 14 = 1 

End of task 


TVCi = K ^ , , 

p2actdg 

Set bit j (Gate 

Delay 2 seconds 

TVCi = K , ^ , 

m4actdg 

Set bit j (Gate 

Delay 2 seconds 

TVCi = K „ , , 

p2actdg 

Set bit J (Gate 

Delay 2 seconds 
Delay 4 seconds 
TVCPITCH = PACTOFF - 0 
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SitO.lA Entered from "IX)NOUN46’' and "REDAP" 


= K^ntone 
= K^ntone 
JdM 2 = JdM]_ 

= (^cnttwo) / 

= (K^nttwo) / IAVG 

KMJ 2 = KMJ^ 

Return 

S40.15 Entered from "SWICHOVR", "TVCEXEC", and "TVCINITl 
IdCONACC = K„ . - IXX 

-ipidm 

VARK = KTLXdl lAVGdTLK 
Retiim 

S41.2 Entered from "DONOUN 46 " and "REDAP" 

RATEINDX = 2 (bits 2-1 of DAPDATRl) 

Inhibit interrupts 

If bits 14-13 of DAPDATRl ^ 10^: 

Set bit 2(LMATTCH) of FUGWRD? = 0 
If bits 14-13 of DAPDATRl = IO 2 : 

Set bit 2 (LMATTCH) of FLAGWRD? = 1 
Release interrupts 

= ^dc 46 

If bit 4 of DAPDATRl = 1; (use wide deadband) 

TS = TS + K , , 

dc409 

ADB = TS 
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If bit 7 of DAPDATRl = 1: 
XTRANS - 1 

If bit 7 of DAPDATRl = 0: 
XTRANS = 0 

If bit 10 of DAPDATRl = 1: 

XTRANS = XTRANS - 1 
If XTRANS = 0: 

Set bit 15(2JETSFLG) of 
If XTRANS ^ 0: 

Set bit 15(2JETSFLG) of 
If bit 13 of DAPDATR2 = 0: 
ACORBD = 1 

If bit 13 of DAPDATR2 = 1: 

ACORBD = - 4096 (i.e. 

If bit 10 of DAPDATR2 = 1; 
RACFAIL = 0 

If bit 4 of DAPDATR2 = 0: 
RACFAIL = -1 

If bit 10 of DAPDATR2 = 0: 
RACFAIL = 1 

If bit 7 of DAPDATR2 = 1: 
RBDFAIL = 0 

If bit 1 of DAPDATR2 = 0: 
RBDFAIL = -1 

If bit 7 of DAPDATR2 = 0: 

RBDFAIL = 1 
Return 


(use B/D for X-translation) 


(use A/C for X-translation) 

FLAGWRDl = 0 

FLAGWRDl = 1 

(use B/D for roll) 

(use A/C for roll) 
negative non-zero) 

(Quad A OK) 

(Quad C not OK) 

(Quad A not OK) 

(Quad B ok) 

(Quad D not OK) 

(Quad B not OK) 
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If bit 4 (Coarse Align) of channel 12 = 1: 

Set bit 3 of RCSFIAGS = 1 
Return 

If bit 3 of RCSFIAGS = 1: 

Set bit 6 (Enable CDU IMU Error Counters) of channel 12 = 0 
Proceed to "NEEDLEll" 

If bit 2 of RCSFIAGS = 1, proceed to "MEEDLER2" 

If bit 6 (Enable CDU IMU Error Counters) of channel 12 = 0: 

Set bit 3 of RCSFIAGS = 1 
Return 

Proceed to "NEEDLES" 

NEEDLEll 

AK = -0 
EDRIVE = -0 
CDUXCMD = -0 

Set bits 3-2 of RCSFIAGS = OI2 
Return 
NEEDLER2 

Set bit 6 (Enable CDU IMU Error Counters) of channel 12 = 1 
Set bits 3-2 of RCSFIAGS = OO 2 
Return 
NEF.DT.ES 

TS = - with magnitude of each component limited 

CDUXCMD = CDUXCMD + (TS - EDRIVE) 

EDRIVE = TS 

Set bits 15-13 (Gate outputs from CDUXCMD) of channel I 4 = 1 
Return 
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MASSPROP Entered from ''AUT037", "DONOUN 46 ", "ENGINOFF", and "TVCINITl" 


If bit 13 of DAPDATRl = 1: 



(means IM-off) 
(i = 0 - 9) 


If bit 13 of DAPDATRl = 0: 


VARSTi = K. 


intvalue . 

1 


+ K , , LEMMASS (i = 0 - 9) 

slopeval. 


If bit 15 of DAPDATRl = 1: 


(descent stage off) 


) 


VARSTI = VARSTI + VARST 8 (VARSTI and VARST2 not 


incremented if DAPDATRl 
is 77777 Q, which it should not) 

(VARST 8 and VARST9 destroyed if used) 


VARST 2 = VARST 2 + VARST9 


VARST7 = VARST7 + K 


dxitflx 


Proceed to "FIXCW" 

FIXCW Entered from "TVCEXEC" and at end of "MASSPROP" 
DELCMWT = CSMMASS + K ^ 


If DELCMWT^ 0: 

lAVGdTLX = VARST7 DELCMWT + VARST2 
lAVG = VARST6 DELCMWT + VARSTI 
IXX = VARST5 DELCMWT + VARSTO 
If DELCMWT > 0: 

lAVGdTLK = VARST3 DELCMWT + VARST2 
lAVG = VARST4 DELCMWT + VARSTI 
IXX = VARST5 DELCMWT + VARSTO 
TS = CSMMASS 

If bit 14 of DAPDATRl = 1: (means LM-on) 

TS = TS 4 LEMMASS 
MASS = TS 

Return (to routine calling "MASSPROP" or "FIXCW") 


) 
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Quantities in Computations 

See also list of major variables and list of routines 

IdCONACC: Single precision value of reciprocal of roll-axis acceleration 
used for TVC roll DAP, scale factor B9, units of (revolutions/ 
second ) . Computed in ’'S40.15", and is based on tvro-jet torque 

(see ^2 Updated every 10 seconds during bum (by entrance 

to "S4DiI^). 

ACORBD: Single precision quantity, scale factor BI4, specifying the 
quad pair to be used for roll attitiade control in the RCS DAP. 

If positive (+1), quad B/D is to be used; if negative (-4096, 
for programming convenience), quad A/C is used. The TVC DAP 
alternates roll commands between quads. Cell is set in "S41.2" 
based upon bit 13 of DAPDATR2 (0 for positive, 1 for negative). 

ADB: Single precision value of the attitude error deadband used in RCS 
DAP, scale factor B-1, units revolutions (one least increment is 
about 0.011°). It is set initially based on bit 4 of DAPDATRl 
(about 0.5° for 0, about 5° for l), but can subsequently be changed 
by the propam (with changes reflected in DAPDATRl for transfers 
between "wide" and "narrow" deadbands). In P20, it is set based on 
R2 of N79, except that 0 there is interpreted to be 0.5°, each pass 
through "R6ICSM" (R6ICNTR = 0) or in "R67START" . The deadband is 
restored to the RO3 value (using bit 12 of FLAGWRD9) in "FIXDB" 
and "INITSUBA". The RO3 value is retained when "DONOUN46" is 
performed; a noun 01 procedure could also be used to load the cell, 
if desired. 

AK (AKq, AK^, AK 2) : Single precision values of attitude errors lased as 
communication cells with "NEEDLER", scale factor B-1, units 
revolutions. Nominal scaling of display (see is such that 

"full scale deflection" is 16.875° of attitude error, with a 
positive AK input to "NEEDLER" giving a negative loading of CDUXClffi. 

During Pll, entered from "NOPOLYM" with AK- loaded so as to give 
full scale of 67.5° (other axes normal scaling); every half second 
(approximately) . Can be used to steer Saturn if control of Saturn 
switch set. If Saturn DAP activated, entered from "SATSTICK" instead. 

During RCS DAP operation, "NEEDLER" is entered every 0.2 
seconds from "KM4TRIX" (on alternate 0.2 seconds, AK is loaded 
in that routine with appropriate error information) . 

During TVC DAP operation, "NEEDLER" is entered every 0.5 second 
from "TVCE5CEC", with AK loaded by "TVCE5CEC", "PCOPY", and "YCOPY" 
respectively. 

Dioring entry DAP operation, "NEEDLER" is entered from 
"CM/FDAIR" every 0.2 second, with AKq loaded so as to give full 
scale of 67.5° and others having nor^l scaling. AK„ is set 0 
every 2 seconds if CMDAPMOD = -0 (see Digital Autopilot 
Entry Routines), and AK^ and AK2 effectively set 0 if bit 3 
(05GSW) of FLAGWRD6 = 1: they are otherwise computed in "ATTRATES" 
and "EXDAP" respectively. 

The general polarity of loading AK is "commanded angle minus 
present angle". A DSKY one-shot drive of error needles can be 
done by V43E means (from "ATTCKl"). 
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CDUXCMD; See IMU Computations. If coarse align bit is not set, the 

data goes to FDAI attitude error display (x, y, z associated with 
roll, pitch, and yaw respectively, with 3^4 pulses giving full 
scale deflection). If bit 9 of channel 12 = 1, the information 
in the cells is used for Saturn control. 

CNTR: Single precision cell used for switch-over control purposes in 
TVC DAP. Prior to entering TVC DAP, is used in "S40.6" as a flag 
to indicate whether that routine entered from "PRE40.6" (value 
1, scale factor BI4) or from "P4OSXTY" (value +0) . If it v/as 
entered from "PRE4O.6", then the four-second delay before driving 
the SPS gimbals to their trim position is bypassed. 

CSMMASS: Value of CSM mass, scale factor BI6, units kilograms, computed 
double precision in "S4O.8" but used single precision elsewhere 
(including DSKY loading). Since the least significant half is not 
otherwise employed, the displayed value can differ from the onboard 
estimate by 1~4 kg (about 8.8 pounds). It can be loaded manually 
in R1 of N47, and is updated in "S4O.8". The updating consists of 
subtracting two seconds worth of mass flow rate (determined by a 
pad -load constant in units of kilograms/centi-second) if the sensed 
accelerometer output in the previous two-second interval exceeded 
the thrust-fail criterion (another pad-load constant) . The updating 
occurs whenever "S4O.8" is entered (and the accelerometer output is 
sufficient), and uses MASSTMP (see "S4O.8") for restart protection 
purposes. "S4O.8" is entered only for P40, starting when Average-G 
is turned on (due to AVBGEKIT setting in "P4OSXTY"), and ending when 
AVBGEXIT is loaded with some other quantity (e.g. "CALCN85" in 
"P4ORCS" for an ENTR to F V99 or PRO to F VI6 N4O after the burn) . 
Because of this logic, no other special provisions need be made to 
compensate for thrust fail conditions: it should be noted, however, 
that the gain updates in "TVCEXEC" are based on the current value of 
CSMMASS. Although the mass updating is done as part of the Average-G 
computation loop, the computations are entered only in P40. As a 
result, if an SPS burn were to be done using the SCS and P47, for 
example, CSMMASS would have to be updated manually. 
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DAPDATRl: Single precision q\aantity vdiose individual octal digits are 
assigned control significance for the RCS and TVC DAPs, and which 
is displayed in R1 of N46. Digit #1 is used for the TVC DAP to 
determine vehicle configuration (iM-off, LM-on descent & ascent, 
or IM-on ascent only), while the remaining digits are used only 
by the RCS DAP (together with digit #1) . Digits #2 - #5 are 
processed in "S41.2", which is entered when RO3 is performed 
as well as when the RCS DAP is initialized (e.g. after a restart 
or when IMU data becomes usable after a period of not being 
usable ) . The individual bits of DAPDATRl have the following 
meanings (digit #1 is also referred to as "A", #2 as "B", etc.)^ 

Octal Word 

Digit Bit Significance 

1 15-13 Specify vehicle configuration/desired DAP. 

Because of the use of various bits (e.g. 14 and 
13) at different parts of the program to 
obtain vehicle information, caution should be 
used that the digits specified be those below, 
and other patterns should be avoided. 

0 is set by "CM/DAPON" for entry DAP, and 
terminates other DAP activity if 
"STABLISH" is entered 

1 indicates IM-off (causes RCS DAP to be 
started if "STABLISH" is entered) 

2 indicates LM-on ascent and descent, 
and causes RCS DAP to be started if 
"STABLISH" is entered 

3 indicates Saturn DAP, and caxises 
Saturn DAP to be started if 
"STABLISH" is entered 

6 indicates IM-on ascent only, and 
causes RCS DAP to be started if 
"STABLISH" is entered (bit 15 is 
used in "MASSPROP" to select proper 
coefficient values) 


2 

12-11 

Not used (no effect) 


10 

Allow use of quad A/C for X-translation if 1 

3 

9-8 

Not used (no effect) 


7 

Allow use of quad B/D for X-translation if 1 
(if bits 10 and 7 both 0, program acts as 
if both bits were l) 

4 

6-5 

Not used (no effect) 


4 

Select narrow deadband (0.5°) if 0 and wide 
deadband (5.0°) if 1: loading of ADB is done 
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Octal 

Word 


Digit 

Bit 

Significance 

5 

3 

Not used (no effect) 


2-1 

Specify maneuver rate for RHC or automatic 
maneuvers : 

OOp for 0 . 05 °/sec 

01^ for 0.20%ec 

10^ for 0 . 50 %ec 

II 2 for 2.00O/sec 


DAPDATR2: Single precision quantity -whose individvial octal digits are 
assigned control significance for the RCS DAP only, and which 
is displayed in R2 of N 46 . It is processed in "S41.2", with the 
individual bits having the meanings given below: 


Octal 

Word 


Digit 

Bit 

Significance 

1 

15-14 

Not used (no effect) 


13 

Use quad A/C for roll if 1 (if 0, use B/D) 

2 

12-11 

Not used (no effect) 


10 

Quad A may be used if 1 (not to be used if O) 

3 

9-8 

Not used (no effect) 


7 

Quad B may be used if 1 (not to be used if O) 

k 

6-5 

Not used (no effect) 


4 

Quad C may be used if 1 (if bit 10 is 1, quad 
C not to be used if bit 4 is O) 

5 

3-2 

Not used (no effect) 


1 

Quad D may be vised if 1 (if bit 7 is 1, quad 

D not to be used if bit 1 is O) 


DELCMWT: Value of (CSMMASS + ^ ) computed in "FIXCW", scale factor 

BI 5 , units kilograms, singlf precision (the difference between 
present GSM mass and the "breakpoint" value for use in computing 
mass-property information). Program notation is "TEMP333". 

DELPBAR, DELYBAR: See Digital Autopilot TVC Routines. 

EDRIVE: Single precision values of previous scaled AK output information 
in "NEEDLES", scale factor BI 4 , units output drive pulses (there 
are 2^3 pulses per revolution for standard scaling). EDRIVE is 
the internal computer image of the number contained in the 
appropriate error counter driven from CDUXCI®, and is required 
since interface is incremental pulses from a previous setting. 
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HOLDFLA.G: Single precision quantity, scale factor 614, used to control 
the nature of the attitxide hold performed by the RCS DAP. A 
positive non-zero value means that at the next opportunity 
("AHFNOROT" entered not in Free Mode and vd.th rate filter initial- 
ized), the present CDU angles should be loaded into THETADX for 
use as the new attitude reference. A +0 value means that the 
DAP is in attitude hold about the angles in THETADX. A negative 
non-zero value means that automatic maneuvers are being performed 
(and WBODY, CDUXD, BIAS, and DELCDU all have an effect, see Digital 
Autopilot RCS Routines). 

A positive non-zero valxie is loaded if the DAP's control of the 
vehicle is removed (e.g. bit 15 of channel 31 = l); when the DAP 
is initialized; if the IM(J data is not usable (i.e. not fine 
align); if the Free Mode is entered; if RHC commands are provided; or 
if no DAP is desired (by "STABLISH"). If HOLDFLAG is negative non- 
zero and a switch to Hold Mode is made, attitude hold is also 
performed (same effect as having HOLDFLAG positive non-zero, although 
the setting is not made). 

A positive zero value is set in "AHFNOROT" after loading THETAEK 
provided that bits 13-11 of RCSFLAGS = 0 (i.e. damping done), and 
in "T5PHASE2" if the magnitude of the middle gimbal angle exceeds 75°. 
A negative non-zero value is set in R6l and also when attitude 
maneuver computations (e.g. R60 or R 67 ) have loaded the DAP interface 
cells. Programs checking HOLDFLAG can conclude, if it is not negative 
non-zero, that an interruption of the automatic maneuver has occurred. 


lAVG: Single precision value of the "average" of moments of inertia 

about the y and z axes, scale factor B20, units kilogram-meters^. 
It is computed as a function of CSMMASS (and LEMMASS if DAPDATRl 
so indicates) in "FIXCW" and is used in "S 4 O.I 4 " to compute 
qiiantities for the RCS DAP (the separate quantity lAVGdTLX is 
used for the TVC DAP). Storage address corresponds to "IXX" +1. 

lAVGdTLX: Single precision value of the "average" of moments of 

Inertia about the y and z axes divided by the "thrust moment" 
(product of engine thrust and the "moment arm from hinge -point 
to e.g."), scale factor B2, units seconds'^, used in "S 4 O.I 5 " to 
multiply KTLXdl to obtain VARK. Program notation is "IAVG/TIX", 
and storage address corresponds to "IXX" +2. Computed in "FIXCW". 


IXX: Single precision value of moment of Inertia about the x axis 
(roll), scale factor B20, units kilogram-meters^, computed in 
"FIXCW". It is used in "S 4 O. 14 " and "S 4 O.I 5 " to compute quantities 
for the RCS and T7C DAPs respectively. 


JdM (JdM^, JdM-, JdMp): Single precision value of of the reciprocal 

of one-jet acceleration about roll, pitch, and yaw axes respective^, 
scale factor B23, units of (revolutions/(deci-second centi-second)) , 
so that multiplication of a rate in revolutions/deci-second by J(^ 
yields a time in centi-seconds. The factor is in K 
account for "tolerances in the torque produced by the jetsand 
uncertainties in the vehicle moment of inertia" . The quantities 
are computed in "S 4 O. 14 ", with pitch and yaw values the same. 
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JETAG: See Digital Autopilot Entry Routines. 

K2 : Single precision constant, program notation "2PI/M" , scale 
^ factor B-8. Nominal value is 0.00331017 x 2°, corresponding 
to the reciprocal of: ( 700 x 2 x 1.355817948 x (1/2TT) x 2-®J , 
where first term is nominal torque due to a single jet (in foot- 
pounds), second accounts for two jets, third converts to units of 
newton-meters, fourth converts to units of revolutions, and fifth 
is scale factor. 


Kcntone" pi’ecision constant, program notation "CONTONE", scale 

^factor B3, value 0.662034. Value corresponds to the reciprocal 
of: (700 X 1.355817948 x (l/2T) x (1/O.8) x 10-2 ^ x 2 ^) , 
where first term is nominal torque due to single jet (in foot- 
pounds), second converts to units of newton-meters, third converts 
to units of revolutions, fourth is the 80^ factor discussed for 
JdM, fifth converts to units of centi-seconds for result, sixth 
converts rotation rate to units of deci-seconds (see JcM for the 
time units), and seventh is the scale factor. 


K : Constant, program notation "CONTTWO", scale factor B7, value 

cn ■'^OQ^Qoiig (double precision). Value corresponds to 700 x 

1.355817948 X (1/2^) X 10“^ X 10-2 ^ 2“7^ where first term is 
nominal torque due to single jet (in foot-pounds), second converts 
to lanits of newton-meters, third converts to units of revolutions, 
fourth converts to deci-seconds (for rotation rate), fifth converts 
to centi-seconds (see KMJ for time units), and sixth is scale 
factor. 


Kdacmit’ Single precision constant, program notation "DACLIMIT +1" , scale 
factor BI4, \mits of output drive pulses. Value is 384 x 2~^, 
corresponding to 384 pulses (the saturated error counter). Actual 
program implementation involves 3 constants: -384, I6OOO, and 
+384, with the 16000 used as a magnitude check. If, when I6OOO is 
added to magnitude of argimient, the answer overflows (exceeds 
16383), then limiting is required. The 384 corresponds to 600g. 

Kdacsc* Single precision constant, program notation "QUARTER", scale 
factor BI5, value 5, corresponding to a true value of 2^S, it 
converts AK from units of revolutions to units of output drive 
pulses, with 2-^^ pulses corresponding to the nominal scaling for 
a revolution. Hence 384 pulses, the error counter saturation 
level, correspond to I6 7/8 degrees, as discussed for AK. 
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K, Single precision constant, program notation "DEC46", scale 

factor B-1, units revolutions. Value is 46 x 2”^, the same as 

^mindb* 

K, Single precision constant, program notation "DEC409", scale 
^factor B-1, units revolutions. Valiie is 409 x 2“^, which when 
added to Sives 455 x 2“^, the same as . 

^dxitf' * precision constant . program notation "DXITFIX", scale 

factor B-12, units seconds^/kilogram, used to increment 
VARST7 if IM-on APS-only configuration is specified. Nominal 
value is -1.88275E-5 x 2^, corresponding to -0.854E-5pX 
(1/0.45359237) X 2^^, vAiere first term is value in sec^/pound, 
second converts to kilograms, and third is scale factor. Octal 
value is 75420^, corresponding to about -O.85367E-5 sec^/pound. 

K : Single precision constant, program notation "INTVALUE", 

intvalusQ g^^le factor B20, units kilogram-meters , used as the 
constant value to Initialize VARSTO for IM-on. Nominal value 
is 26850 X 2 ~^^, corresponding to about 19803.5 x 1.355^17948 
X 2”20^ where first term is value in slug-ft^, second converts 
to kilogram-meters^, and third is scale factor. Octal value is 
00644j^, corresponding to 26880 kilogram-meters^ or about 
19826°slug-f t^ . 

K. : Single precision constant, program notation "INTVALUE +1", 

intvalue^ scale factor B20, units kilogram-meters^, iised as the const- 
ant value to initialize VARSTl for IM-on (if descent stage 
off, subsequently incremented by VARST8) . Nominal value is 
127518 X 2^^, corresponding to about 94052.5 x I.355817948 x 
2”^^, where first term is value in slug-ft^. Octal value is 
3710rt, corresponding to 127488 kilogram-meters^ or about 
94056 3lug-ft2. 

K. . - : Single precision constant, program notation "INTVALUE +2", 

in va usg gQ32.e factor B2, used to initialize VARST2 for LM-on (if 

descent stage off, subsequently incremented by VARST8) by providing 
the constant value. Nominal value is 0.54059 x 2“^, corresponding 
to 0.54059 seconds^ (since units of constant are seconds^). Octal 
value is 4246g, corresponding to about 0.540527 seconds'^. 

K. , ^ : Single precision constant, program notation "INTVALUE +3", 

intvaiue^ scale factor B-12, used to initialize VARST3 for IM-on, by 
providing the constant value. Nominal value is 0.15396'4E-4 x 2^^, 
with units seconds^/kilogram. Nominal^ value corresponds to 
about O.698369E-5 X (1/0.45359237) X 2 -^, where first term is 
value in seconds^/pound, second converts to kilograms, and third 
is scale factor. Octal value is 2011^, corresponding to about 
0 . 6982IOE-5 se conds^/ pound . 
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K. , ^ : Single precision constant, program notation "INTVALUE +4", 

in va ue^ scale factor B6, used to initialize VARST4 for LM-on, by- 
providing the constant value, units (kilogram-meters^)/kilogram. 
Nominal value is -0.742923 x 2“°, corresponding to about -0.2485468 
X 1.355817948 X (1/0.45359237) X 2 ~°, -where first term is value in 
slug-ft^/pound, second converts to kilogram-meters^, third converts 
to kilograms, and fourth is scale factor. Octal value is 77501rt, 
corresponding to about -O.2483O slug-ft^/poimd . 

K. tvaine ' precision constant, program notation "INTVALUE +5", 

5 scale factor B6, used to initialize VARST5 for LM-on, by 

providing the constant value, imits (kilogram-meters^) /kilogram. 

Nominal value is 1.5398 x 2“°, corresponding to about 0.51514 x 

1.355817948 x (1/0.45359237) x 2”°, where first term is value in 

slug-ft^/pound. Octal value is 6l2g, corresponding to about 

0.5149 slug-ftVpo-und. Octal value same as K , 

nolemvalr 

5 

K. tvaiup • Single precision constant, program notation "INTVALUE +6", 

6 scale factor B6, used to initialize VARST6 for LM-on, by- 
providing the constant value, imits (kilogram-meters2)/kilogram. 
Nominal value is 9-68 x 2 ~°, corresponding to about 3.2385 x 
1.355817948 X (1/0.45359237) X 2” , where first term is value in 
slug-ft'^/pound. Octal value is 4656^, corresponding to about 
3.2384 slug-ft^/pound. 

\ K. , : Single precision constant, program notation "INTVALUE -t-7", 

/ 7 scale factor B-12, used to initialize VARST7 for LM-on, 

by providing the constant value, units seconds^/kilogram. Nominal 
value is 0.647625E-4 x 2^^, corresponding to about 0.293758E-4 
X (1/0.45359237) X 2^^, where first term is value in secVpound, 
second converts to kilograms, and third is scale factor. Octal 
value is 10372g, corresponding to about 0.293748E-4 sec^/pound. 

^int value ’ ^^§1© precision constant, program notation "INTVALUE +8", 

8 scale factor B20, used to initialize VARST8 for LM-on, by 
providing the constant value, units kilogram-meters^. Nominal 
value is -27228 x 2“^®, corresponding to about - 20082 

X 1.355817948 X 2“20^ where first term is value in slug-ft^, 
second converts to kilogram-meters^, and third is scale factor. 
Octal value is 77126^, corresponding to -27200 kilogram-meters^ 
or about -20062 slug-ft^. 

K. . , : Single precision constant, program notation "INTVALUE +9", 

9 scale factor B2, used to initialize VARST9 for LM-on, by 
providing the constant value, units seconds^. Nominal value is 
-0.206476 X 2“^, corresponding to -0.206476 seconds^. Octal value 
of constant is 7626lg, corresponding to about -0.206543 seconds^. 


O 
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K . . , : Single precision constant, program notation "-^ACTDBS", scale 
in4actag imits GDU actuator output pulses (one pulse is 

85.41 seconds; there are about 42.34963 pulses/degree). Value is 
-168 X 2“^, or tirfice the value of \2actde opposite sign), 
corresponding to about -4 degrees. ^ ° 


^maxdb* precision constant, program notation "M4KDB", scale 

factor B-1, units revolutions. Value is 455 x 2“^, corresponding 
to about 4.998S degrees. 


K . : Single precision constant, program notation "MINDB", scale 

factor B-1, units revolutions. Value is 46 x 2~^, corresponding 
to about 0.5054 degrees. 

K , : Single precision constant, program notation "NEGBPW", scale 

negbpWfg^Q^Qj. units kilograms, giving the complement of the 

GSM "breakpoint" weight for computation of mass properties. 

Nominal valiie is -15402.1? x 2“l°, corresponding to -15402.1? 
kilograms or about 33955.9? po\mds (program comments indicate 
that "dry weight" is 23956 pounds, giving effect for. constant 
of 10,000 pounds of propellant). Octal value is ?0364g, corres- 
ponding to -I5404 kilograms (-33960.0 pounds). 

K , -| : Single precision constant, program notation "NOLEMVAL", 

nolemvalQ factor B20, vinits kilogram-meters^, giv^g setting 

for VARSTO for LM-off . Nominal value is 25445 x 2~^^, corresponding 
to about 18?6? x 1.3558l?948 x 2“^^, where first terra is value in 
slug-ft^, second converts to kilogram-meters^, and third is scale 
factor. Octal value is 6l6g, corresponding to about 18?8? slug-ft . 

K , , : Single precision constant, program notation "NOLEMVAL +1", 

nolemval^ scale factor B20, units kilogram-meters^, used to gi've_ 
setting for VARSTl for IM-off . Nominal value is 8?450 x 2~^^, 
corresponding to about 64500 x 1.355S1?94S x 2 where first 
term is value in slug-ft^. Octal value is 2526g, corresponding 
to about 644SI slug-ft^. 

K , : Single precision constant, program notation "NOLEMVAL +2", 

nolemval2 gg^ie factor B2, used to give setting for VARST2 for LM- 
off, units seconds^. Nominal value is 0.30?15 x 2 , corres- 

ponding to 0.30?15 seconds^. Octal value is 2352g, corresponding 
to about 0.30?13 seconds^. 
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^nolemval ‘ precision constant, program notation "NOLEMVAL +3", 

3 scale factor B-12, iinits seconds^/kilogram, used to 
initialize VARST3 for LM-off. Nominal value is 1.22877E-5 x 2^, 
corresponding to O. 55736 E -5 x ( 1/0.45359237) x 2^^, where first 
term is value in seconds^/pound, second converts to kilograms, and 
third is scale factor. Octal value is 1471rt> corresponding to 
about O. 55762 E -5 seconds^/pound. 

^nolemval ‘ ^^S^® Precision constant, program notation "NOLEMVAL +4", 

4 scale factor B6, used to initialize VARST4 for LM-off, 
units kilogram-meters^ per kilogram. Nominal value is I. 6 O 96 x 

corresponding to about O .5385 x I. 3558 I 7948 x (l/O. 45359237) 

X 2 °, where first term is value in slug-ft^/pound, second converts 
to kilogram-meters^, third converts to kilograms, and fourth is 
scale factor. Octal value is 634rt> corresponding to about 
0.53842 slug-ft^/pound. 

K 1 1 : Single precision constant, program notation "NOLEMVAL +5", 

5 scale factor B 6 , used to initialize VARST5 for LM-off, 
units kilogram-meters^ per kilogram. Nominal value is 1.54 x 
2“°, corresponding to about O .5152 x 1 . 355817948 x (l/O. 45359237) 

X 2 “°, where first term is value in slug-ft^/pound, second 
converts to kilogram-mete rs^, third converts to kilograms , and 
fourth is scale factor. Octal value is 612^., corresponding to 

about 0.5149 slug-ft^/pound. Octal value same as K. , 

intvalue^ 

K 1 1 : Single precision constant, program notation "NOLEMVAL + 6 ", 

6 scale factor B6. used to initialize VARST6 for LM-off, 
units kilogram-meters^ per kilogram. Nominal value is 
7.77177 X 2~°, corresponding to about 2.600 x 1.355817948 x 
( 1 / 0 . 45359237 ) X 2“°, where first term is value in slug-ft^/ 
pound, second converts to kilogram-meters^, third converts to 
kilograms, and fo\irth is scale factor. Octal value is 3706^, 
corresponding to about 2.6006 slug-ft^/pound. 

K I ^ : Single precision constant, program notation "NOLEMVAL + 7 ", 

7 scale factor B-12, used to initialize VARST7 for LM-off, 
units seconds^/kilogram. Nominal value is 3.46458E-5 x 2^^, 
corresponding to about 1.5715E-5 x (l/O. 45359237) x 2^2, where 
first term is value in sec ypound, second converts to kilograms, 
and third is scale factor. Octal value is 4425*^ corresponding 
to about I. 57148 E -5 sec'^/pound. 

K 1 1 : Single precision constant loaded into VARST 8 for LM-off, 

8 but should not be used. Cell corresponds to K. , ^ , 

with same scaling. 0 

K 1 1 : Single precision constant loaded into VARST9 for LM-off, 

9 but should not be used. Cell corresponds to K. , ^ , 
but with octal number considered scaled B2 instead ox 1 
B20. Value would be about 0.48633 seconds^. 
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K Single precision constant, program notation "+2ACTDBGr", scale 

^ ° factor BI4, units CDU actuator pulses (see K . 4. j ) • Value 

is 84 X 2“^, corresponding to about +2 degrees. ^ 

K ^ : Single precision constant, program notation "SLOPEVAL", 

™ "^0 scale factor B6, units kilogram-meters^ per kilogram, used 

as the slope value to initialize VARSTO for IM-on. Nominal value 
is 1.96307 X 2“°, corresponding to about 0.65675 x 1.35581794® 

X (1/0.45359237) X 2“°, where first term is value in slug-ftVpound, 
second converts to kilogram-meters^, third converts to kilograms, 
and fourth is scale factor. Octal value is 767rt, corresponding 
to about 0.65734 slug-ft^/pound . 

K ^ : Single precision constant, program notation "SLOPEVAL +1", 

® ^ 1 scale factor B6, imits kilogram-mete rs^/kilogram, used as 

the slope value to initialize VARSTl for LM-on. Nominal value is 
27.5774 X 2“°, corresponding to about 9.2261 x 1.35581794® x 
(1/0.45359237) X 2“°, where first term is value in slug-ft^/pound. 
Octal value is 15624g, corresponding to about 9.2263 slug-ftVpound. 

K ^ : Single precision constant, program notation "SLOPEVAL +2", 

s pev 2 scale factor B-12, units seconds^/kilogram, used as the 
slope value to Initialize VARST2 for IM-on. Nominal value is 
2.354®E-5 X 2^, corresponding to about 1.06812E-5 x (1/0.45359237) 
X 2^“^, where first term is value in seconds^/poimd, second 
converts to kilograms, and third is scale factor. Octal value 
is 3054gj corresponding to about 1.06793E-5 seconds^/pound. 

K ^ : Single precision constant, program notation "SLOPEVAL +3", 

s opevax^ scale factor B-26, units seconds^/kilogram per kilogram, 
used as the slope value, to initialize VARST3 for LM-on. Nominal 
value is 2.1777E-9 x 2^°, corresponding to about 0.44®05E-9 x 
(1/0.45359237)2 X 2^°, where first term is value in seconds^/pound 
per pouM. Octal value is 4532g, corresponding to about 0.4479®E-9 
seconds Vpound per pound. 

K - , : Single precision constant, program notation "SLOPEVAL +4", 

® "^4 scale factor B-8, units kilogram-meters'^ per kilogram per 

kilogram, used as the slope value to initialize VARST4 for LM-on. 
Nominal value is 1.044E-3 x 2°. corresponding to about 0.15®4E-3 
X 1.355®1794® x (1/0.45359237)2 x 2®, where first term is value 
in slug-ft^/pound per pound, second converts to kilogram-meters^, 
third converts to kilograms, and fourth is scale factor. Octal 
value is 10433g> corresponding to about 0.15®433E-3 slug-ft^/pound 
per po\md. 

K - - : Single precision constant, program notation "SLOPEVAL +5", 

s opevax^ scale factor B-8, units kilogram-meters^ per kilogram per 
kilogram, used as the slope value to initialize VARST5 for 
LM-on. Value is zero, meaning that VARST5 is not affected by 
LEMMASS. 
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K ^ ^ : Single precision constant, program notation "SLOPEVAL +6", 

^ o scale factor B-8, mits kilogram-meters^ per kilogram per 
kilogram, used as the slope value to initialize VARST6 for LM-on. 
Nominal value is 2.21068E-3 x 2^, corresponding to about 
0.335472E-3 X 1.355S1794S x (1/0.45359237)^ x 2®, where first term 
is value in slug-ft^/pound per pound. Octal value is 22070g, 
corresponding to about 0.33546E-3 slug-ft'^/pound per pound. 


K ^ : Single precision constant, program notation "SLOPEVAL +7", 

° ^ ^ 7 scale factor B-26, units seconds^/kilogram per kilogram, 

used as the slope value, to initialize VARST7 for LM-on. Nominal 
value is 1.5166E-9 x 2^°, corresponding to about 0.31203E-9 x 
(1/0.45359237)'^ X 2^°, where first term is value in seconds^/pound 
per pound, second converts to kilograms, and third is scale factor. 
Octal value is 3204g, corresponding to about 0.31212E-9 seconds^/ 
pound per pound. 

K : Single precision constant, program notation "SLOPEVAL +8", 

^ 8 scale factor B6, units kilogram-meters^ per kilogram, used 

as the slope value to initialize VARST8 for LM-on. Nominal value 
is -I.284 X 2“°, corresponding to aboutr-O.4296 x 1.355^17943 x 
(1/0.45359237) X 2 ~° , where first term is value in slug-ftVpound, 
second converts to kilogram-meters^, third converts to kilograms, 
and fourth is scale factor. Octal value is 77266^, corresponding 
to about -O.43OO slug-ft^/pound. 


K : Single precision constant, program notation "SLOPEVAL +9", 

s opevaig scale factor B-12, units seconds^/kilogram, used as the 
slope value to initialize VARST9 for LM-on. Nominal value is 
2.00E-5 X 2^^, corresponding to about 0.9072E-5 x (1/0.45359237) 

X 2^^, where first tern is value in seconds^/poixnd, second 
converts to kilograms, and third is scale factor. Octal value 
is 2476^, corresponding to about O.907O6E-5 seconds^/pound. 

KMJ (KMJq, KMJ^, KMJg) : Single precision value of the one-jet accel- 
eration about roll, pitch, and yaw axes respectively, scale factor 
B-I3, units of revolutions/ (deci-second centi-second) , so that 
multiplication of a time in centi-seconds by KMJ yields a 
rotation rate in revolutions/de ci-se cond . The quantities are 
computed in "S4O.I4", with pitch and yaw values the same. 


KTLKdl: See Digital Autopilot TVC Routines. 


LEMMASS: Single precision value of LM mass loaded by R2 of N47, and 
used in "MASSPROP" if bit 13 of DAPDATRl = 0 to compute LM- 
attached mass properties constants. If bit 14 of DAPDATRl = 1, 
is used in "FIXCW" to compute MASS (if DAPDATRl set to indicate 
that LM not attached, cell contents ignored). Scale factor BI6, 
imits kilograms, but value should not exceed 2^5 (or be equal to 
it) kilograms because of left shift in "MASSPROP": this is about 
72000 pounds. For valid MASS computation, sum of CSMMASS and 
LEMMASS must be less than 2^° kilograms . 
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MASS: Single precision value of vehicle mass, program notation 

"WEIGHT/G", scale factor Bl6, units kilograms, loaded in "FIXCW" 
as the sum of CSMMASS and (if specified by DAPDATRl) LEMMASS. 

Note that the value in this cell is not updated by RO 3 ("DONOUN 46 ") 
unless digit #1 of DAPDATRl is 1, 2, 5 > or 6. Cell is used as 
if it were double precision in "S40.1", "S 40 .IB", and "S 4 O.I 3 ", 
and used as proper single precision quantity in "P37E" . If used 
as "double precision" quantity, least significant half is AKq. 

MRKRTMP: See Bixrn Control. 

NVWORDl: See Bum Control. 

OPTIND: See Optics Computations. 

PACTOFF: See Digital Autopilot TVC Routines. 

FMANNDX: Single precision cell, scale factor B14, loaded in "STICKCHK" 
with bits 2-1 of TS (set before entering routine). These bits 
correspond to the "pitch" input, with OO2 meaning no maneuver, 

OI2 meaning a positive maneuver, IO2 meaning a negative maneuver, 
and II2 treated the same as OO2 except for rate-command use of 
the RHC (see "T5PHASE2"). TS is set to the "true" values of 
the input information (which for the controllers have an 
inversion from the binary values, so that a binary 0 channel 
input represents a logical l) . 

RACFAIL: Single precision cell, scale factor BI4, set in "S41.2" based 
on Quad failure information in DAPDATR2. It is set to 0 if Quads 
A and C are both indicated as functioning; it is set to +1 if 
Quad A is indicated as having failed; and it is set to -1 if 
Quad A is indicated as functioning and Quad C as not functioning. 
See information below. 

RATEINDX: Single precision cell, scale factor BI4, set in "S41.2" 

to bits 2-1 of DAPDATRl (shifted left one place for convenience 
in indexing double precision constants). Value is 0 for a 
specified maneuver rate of 0.05°/second; value is 2 for a 
specified maneuver rate of 0.2°/second; value is 4 foi* a 
specified maneuver rate of 0.5°/second; and value is 6 for a 
specified maneuver rate of 2.0°/second. 

RBDFAIL: Single precision cell, scale factor BI4, set in "S41.2" 

based on Quad failure information in DAPDATR2. It is set to 0 
if Quads B and D are both indicated as functioning; it is set 
to +1 if Quad B is indicated as having failed; and it is set to 
-1 if Quad B is indicated as functioning and Quad D as not 
functioning. See information below. 
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RCSFLAGS: Single precision flag word used for control of various RCS 
DAP functions. The individual bits have the following meanings: 


Bit Meaning 

15 Set in "NEWANGL" on initial pass (also in R67) if RATEINDX = 

6 (meaning large -rate R60 maneuver), and used in 
"T5PHASE2" to control setting of ATTKALMN (to -1 if bit 
is 1, and otherwise to O) correspondingly. It avoids 
having attitude maneuver routine change ATTKALMN if 
RCS DAP filter is being started up. Reset e.g. in "STOPRATE 

14 Bit set in RCS DAP if rate filter must be initialized 

before computations are performed. It is set if e.g. 
bit 15 of channel 31 is l(no G&N control), or if 
bit 6 of IMODES33 == 1> indicating IMU data not usable; 
it is reset e.g. in "REDAP” . 

13 Bit set 1 in "T5PHASE2" for a change in RHC inputs, to 

signify that roll damping must be completed before 
attitiide"hold"resumed, and reset zero in "J23" if no 
roll firing required by phase -plane. 

12 Bit set 1 in "T5PHASE2" for a change in RHC inputs, to 

signify that pitch damping must be completed before 
attitude"hold"resumed, and reset zero in "J23" if no 
pitch firing required by phase-plane . 

11 Bit set 1 in "T5PHASE2" for a change in RHC inputs, to 

signify that yaw damping must be completed before 
attitude "hold "resumed, and reset zero in "J23" if no 
yaw firing required by phase -plane. 

10-9 Bits set 0 in "T5PHASE2" and then set, for a change in 

RHC inputs, to the changed bits for roll(if any), to 
force a firing in "J23" (if not otherwise required by 
phase-plane) for that cycle, provided EDOT for that 
axis not too close to 0. Bit 1 if input l->0 or 0->»l. 

8-7 Bits set 0 in "T5PHASE2" and then set, for a change 

in RHC inputs, to the changed bits for yaw (if any): 
see bits 10-9. 

6-5 Bits set 0 in "T5PHASE2" and then set, for a change 

in RHC inputs, to the changed bits for pitch (if 
any) : see bits 10-9 . 

4 Bit used in "KMATRIX" to cause "NEEDIER" to be performed 

on one pass (if presently O) and a new AK value to be 
loaded on the next pass (a pass takes place once every 
0.1 second) . 

3 Bit set to 1 to cause "NEEDIER" routine to perform the 

initialization functions for the FDAI display (reset 
error counter to 0 etc.). Reset by "NEEDIEll" . 

2 Bit set to 1 in "NEEDIEll" to signify that first pass 

of initialization function has been completed (causes, 
with bit 3=0, "NEEDLER2" to be entered at the next 
transfer to "NEEDIER"). Reset by "NEEDIER2" . 

1 Bit set 0 at end of "TbSETUP" and in "ZEROJET" to indicate 

to "T6START" that the next TIME6 interrupt that is valid 
should cause RWORDl, PWORDl, and YWORDl to be loaded. The 
"TbSTART" routine then resets the bit to 1. 
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REPFRAC; See Digital Autopilot TVC Routines. 

RMANNDX: Single precision cell, scale factor BI4, loaded in "STICKCHK" 

•with bits 6-5 of TS (set before entering routine), shifted right 
4 places. These bits correspond to the "roll" input (see PMANNDX). 

T5LOC: Address controlling -vdiere computations begin when program interrupt 
#2 (controlled by TIME5) is received. It is set to "T5IDLOC" to 
cause these program interrupts to be ignored: this setting is done 
as part of a "fresh start" and also in "STABLISH" if bits 14-13 
of DAPDATRl are 00^. If a restart is encountered, the loading 
of T5IDC is controlled by bits 15-14 of FLAGVIRD6, and T5I4)C is 
set to "T5IDL0C", "REDORCS", "REDOTVC", and "REDOSAT" for bits 
15-14 = OO2, 01^, IO2, and II2 respectively. 

For the Saturn DAP, T5L0C = "SATSTICK" as set by "REDOSAT" 
and "SATSTICK". "REDOSAT" is entered due to T5LOC settdjig to that 
address for a restart or by "SATSTKON" (entered from "STABLISH"). 
TIME5 setting is such as to cause "SATSTICK" to be entered every 
0.1 second. 

For the RCS DAP, startup is accomplished (from "STABLISH" or 
from "ENGINOFF", "V97E", or "V97T") by entering "RCSDAPON", which 
sets TIME5 to cause transfer to "RCSATT" (T5LOC setting) in 0.6 
seconds. The delay if from "AUT037" is 3.1 seconds.. Two 
interrupts 20 ms apart cause entrance to "RCSATT", with subsequent 
branching controlled by T5PHASE (see Digital Autopilot RCS Routines). 
After the second "RCSATT" entrance, if filter not being initialized 
T5L0C is set to "JETSLECT" with another 20 ms delay; that routine 
in turn resets T5L0C to "RCSATT" with a 60 ms delay (for the 100 
ms RCS DAP cycle rate ) . 

For the TVC DAP, T5L0C is set to "T5IDL0C" in "IGNITION" 
shortly after engine-on, to disable RCS DAP entrances. About 
0.4 seconds later, T5L0C is set to "TVCDAPON" (■with delay of 
about 10 ms). "TVCDAPON" sets T5LOC to "TVCINITl" (delay about 
10 ms) which in turn, after entering "TVCINIT4", sets T5L0C to 
"DAPINIT" -with delay from T5TVCDT (20 ms for LM-off). "DAPINIT" 
in turn sets T5L0C to "PITCHDAP" with delay of one complete TVC 
DAP cycle (40 ms for LM-off), causing entrance to "PITCHDAP" for 
LM-off about 0.4® seconds after engine-on. "PITCHDAP" sets 
T5LOC to "YAWDAP", which resets it to "PITCHDAP", each with delay 
from T5TVCDT, i.e. loop cycle rate of 40 ms for LM-off. 

The TVC DAP also uses -waitlist task means to perform "TVCEXEC" 
every 0.5 second (starting .51 seconds after "TVCINIT4"), which 
in t'um calls the roll DAP task, "ROLLDAP", 0.03 seconds after 
being entered. If a restart, "REDOTVC" se-ts T5LOC to "ENABL2", 
which in turn sets to "CMDSOUT", which in turn sets to either 
"TVCINITl" or "DAPINIT" depending on timing of restart. 

For the entry DAP, "CM/DAPON" sets T5L0C to "T5IDL0C", and 
the waitlist task "READGYMB", after entering "BODYRATE", sets it 
to "ATTRATES" (vdth 0.01 second delay). After executing the 
computations, T5IDC again set to "T5IDK)C" (at end of "CM/FDAIR"). 

The entry DAP cycle rate is defined by the 0.1-second waitlist 
calls of "READGYMB". 
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T6L0C : Address controlling where computations begin when program 

interrupt #1 (controlled by TIME6) is received. The interrupt 
is not generated unless TIME6 is counting down; contrary to TIME5, 
the countdown of TIME6 must be enabled by a channel bit (bit 15 
of channel 13). It is set to "T5IDLOC" in "CM/DAPON" (since the 
Entry DAP does not make use of program interrupt #l) . 

In the RCS DAP, T6L0C is set to "T6START" in "ZEROJET" 

(which is also entered if no DAP or if Saturn DAP specified, to 
zero output channels). During normal RCS DAP operation, TIME6 
is set to 14 ms in "JETSLECT", so that jets scheduled to be 
fired from about 86 ms to 100 ms will all be fired for the full 
100 ms. Otherwise, TIME6 is set in "T6START" to the appropriate 
delay. 

In the TVC DAP, T6L0C is used for timing of the roll RCS 
jets, and is set to "NOROLLl" in " JETROLL" . 

THETADX: See Digital Autopilot RCS Routines. 


TIME5: Computer hardware clock register (cell 0030 ^), incremented by 1 
each lO^ms under hardware control. Its overflow (reaching a value 
of 2 4 - 16384) causes program interrupt #2 ("T 5 RUPT"), which is 
coded to start performing the computations whose starting address 
is in T 5 L 0 C . Setting TIME 5 "to cause program interrupt #2 in 
20 ms", for example, is accomplished by setting TIME 5 = 37776 
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TIME6: Computer hardware clock register (cell 0031 ^), decremented by 1 
each 0.625 ms (i.e. at a I6OO pps rate) under hardware control if 
it 15 of channel I3 -• 1 . Because of decrement rate^ can be 
considered to contain time -interval information with scale factor 
BIO in units of centi-seconds . Its reduction to zero causes 
program interrupt # 1 , which is coded to start performing the 
computations whose starting address is in T 6 L 0 C (via "T 6 RUPT"). 


TUSED: See Digital Autopilot Entry Routines. 


TVCPHASE: See Digital Autopilot TVC Routines. 

TVCPITCH: Single precision value of computer special erasable memory 
counter cell 0054g when used to provide pitch steering commands 
for the SPS engine gimbal (if bit 8 of channel 12 is l). Pulses 
are provided from the cell to change the value of the associated 
error counter at a 3200 pps rate, until the cell contents reduced 
to zero, provided bit 11 of channel 14 is set. The computer's 
image of what is in the error counter is in PCMD (see Digital 
Autopilot TVC Routines), i.e. the "integral" of TVCPITCH output 
since error counter reset, by zeroing of bit 2 of channel 12, 
e.g. in "S4O.6". One pulse gives 85. 41 arc seconds of output, 
thus leading to the expression of scaling information as 
"BI4 in imits of CDU actuator output pulses" or BO in units 
of ASCREV (actuator revolutions, namely 2^^ pulses or about 
1.07975111 revolution). There are about 42.14963 pulses per 
degree. The same cell is used for CDUSCMD (see Optics 
Computations), and hence optics use must be disabled when the 
cell is used for TVC purposes. 
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TVCYAW: Single precision val\xe of computer special erasable memory 
counter cell 0053f> when used to provide yaw steering commands 
for the SPS engine gimbal (if bit 8 of channel 12 is l). Pulses 
are provided from the cell to change the value of the associated 
error counter at a 3200 pps rate, until the cell contents 
reduced to zero, provided bit 12 of channel 14 is set. The 
computer's image of what is in the error counter is in YCMD 
(see Digital Autopilot TVC Routines). Scaling same as TVCPITCH, 
and the same cell is also used for CDUTCMD (see Optics Computations). 

VARK: See Digital Autopilot TVC Routines. 

VARSTO: Single precision quantity computed in "MASSPROP" for use in 
"FECCW" (cell not time-shared in TVC DAP), scale factor B20, 
units kilogram-meters^, giving the valiae of IXX at "breakpoint" 

(when DELCMWT = O) . 

VARSTl: Single precision q\iantity computed in "MASSPROP", scale factor 
B20, used as the value of lAVG at "breakpoint", \mits kilogram- 
meters'^. 

VARST2: Single precision quantity computed in "MASSPROP" , scale factor 
B2, units seconds^, used as the "breakpoint" value of lAVGdTLK. 

VARST3: Single precision quantity computed in "MASSPROP", scale factor 
B-12, xmits seconds^/kilogram, giving the slope of lAVGdTIX with 
CSMMASS for values above "breakpoint" (DELCMWT greater than O) . 

VARST4: Single precision qviantity computed in "MASSPROP", scale factor 
b 6, units kilogram-meters^ per kilogram, giving the slope of lAVG 
with CSMMASS for values above "breakpoint" (DELCMWT greater than O). 

VARST5: Single precision quantity computed in "MASSPROP", scale factor 
B6, units kilogram-meters^ per kilogram, giving the slope of IXX 
with CSMMASS (both above and below "breakpoint"). Octal value is 
same for LM-off and LM-on (regardless of LEMMASS), including APS 

only. 

VARST6: Single precision quantity computed in "MASSPROP", scale factor 
B6, units kilogram-meters^ per kilogram, giving the slope of lAVG 
with CSMMASS for values not above "breakpoint" (DELCMWT not greater 
than O) . 

VARST7: Single precision quantity computed in "MASSPROP", scale factor 
B-12, units secondsVkilogram, giving the slope of lAVGdTLX with 
CSMMASS for values not above "breakpoint" (DELCMWT not greater 
than O) . 

VARST8: Single precision quantity computed in "MASSPROP", scale factor 
B20, units kilogram-meters^, meaningful only for LM-on, and used 
to increment VARSTl if descent stage off: it is added to VARSTl, 
but is computed for LM-on from two constants both of which are 
negative, hence a reduction in VARSTl results from the addition. 




O 
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VARST9; Single precision quantity computed in "MASSPROP", scale factor 

B2, units seconds^, meaningful only for LM-on, and used to increment 
VARST2 if descent stage off. 

XTRANS: Single precision cell, scale factor BI 4 , set 0 if bits 10 and 
7 of DAPDATRl are the same value (allows four- jet X-translation) ; 
set to +1 if bit 7 is 1 (allows use only of quad B/D for 
X-translation) ; and set to -1 if bit 10 is 1 (allows use only of 
quad A/C for X-translation). Setting performed in "S41.2". See 
information below. 

YACTOFF: See Digital Autopilot TVC Routines. 

YMANNDX: Single precision cell, scale factor BIA, loaded in "STICKCHK" 
with bits 4-3 of TS (set before entering routine), shifted right 
2 places. These bits correspond to the "yaw" input (see PMANNDX). 
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S\inimary of DAP Performance for RCS Failures 


The only knowledge that the computer program has of RCS failures 
is by means of the information in DAPDATR2: there is no attempt made 
to deduce failures from observed spacecraft responses. The Entry DAP 
has no input provided to specify failed CM RCS jets, and the TVC roll 
DAP alternately uses (for rolls in a given direction) the A/C and 
B/D Quads, without regard to the RCS jet status information provided 
in DAPDATR2. Consequently, it is only the RCS DAP which makes use of 
jet status information furnished in DAPDATR2. 

Routine "S41.2" serves as the interface between the information 
in DAPDATR2 and the RCS DAP jet selection logic (which is normally 
entered every 0.1 seconds while the RCS DAP is capable of providing 
output commands, and which starts at "JETSLECT"). Certain features 
of "S41.2" simplify the subsequent coding, but also have an influence 
upon the performance of the program that is not necessarily evidenced 
in the displays provided to the crew. These features include: 

a) If Quad A is reported failed, the program assumes (without 
checking and with no special indication to the crew) that Quad 
C is functional. 

b) If Quad B is reported failed, the program assumes (without 
checking and with no special indication to the crew) that Quad 
D is functional. 

c) If neither Quad A/C or Quad B/D is specified for X-translation, 
the program assumes that both are to be used. 

d) If only Quad A/C is specified for X-translation, no attempt 

is made to use Quad B/D for this purpose (even if Quad A or Quad C 

has a reported failure). Similarly for roll Quad selection. 

e) If only Quad B/D is specified for X-translation, no attempt 

is made to use Quad A/C for this purpose (even if Quad B or Quad D 

has a reported failure). Similarly for roll Quad selection. 

In addition to the features of "S41-2" that affect program perform- 
ance, the jet selection logic itself has certain characteristics which 
strongly influence program performance in the presence of reported RCS 
failures. These include the following: 

1) If only Quad A/C is specified for X-translation, and Quad A 
or Quad C has a reported failure, no X-translation is performed 
except that which may incidentally arise from the single- jet 
firings to perform pitch control (or yaw control in the event 
that Quad B or Quad D also has a reported failure). 

2) Similar to #1, except with Quad B/D instead of Quad A/C. 

3) If both Quad A/C and Quad B/D are specified for X-translation, 
proper translation from the unfailed Quad (plus that which may 
incidentally arise from single-jet firings) will be performed. 

The routine used to estimate burn time ("S40.13")> however, will 
perform its computations based on four-jet ullage. If Quads 
A/C and B/D both have reported failures, the situation of #I 
applies . 
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U) If Quad A/C is specified for roll, and Quad A or Quad C has 
a reported failure, then no Y-translation is performed except 
that which may incidentally arise from the single-jet firings 
to perform roll control, "in which case the astronaut should 
switch to B/D roll. " 

5) If Quad B/D is specified for roll, and Quad B or Quad D has 
a reported failure, then no Z-translation is performed except 
that which may incidentally arise from the single-jet firings 
to perform roll control, "in which case the astronaut should 
switch to A/C roll." 

6 ) If Quad A/C is specified for roll, and Quad B or Quad D has 
a reported failure, then single-jet Z-translation will be 
performed for that portion of the 0.1-second DAP cycle not 
required for roll attitude control (even though a roll torque 
is produced). 

7) If Quad B/D is specified for roll, and Quad A or Quad C has 
a reported failure, then single-jet Y-translation will be 
performed for that portion of the 0.1-second DAP cycle not 
required for roll attitude control (even though a roll torque 
is produced). 

8 ) If Quad A/C is specified for roll, and Quad B or Quad D has 
a reported failure, then the jet used in #6 will also be fired 
during the portion of the 0.1-second DAP cycle that is used for 
roll attitude control if and only if the roll torque on the 
vehicle is not reduced to 0 dxiring this interval. It would 

be fired if no Quad A/C failures were reported (since two-jet 
torque is used) and no Y-translation is simultaneously specified 
other cases can best be analyzed by review of the jet table 
information itself (see Digital Autopilot RCS Routines). 

9) If Quad B/D is specified for roll, and Quad A or Quad C has 
a reported failure, then the jet used in ^7 will also be fired 
during the portion of the 0.1-second DAP cycle that is used for 
roll attitude control if and only if the roll torque on the 
vehicle is not reduced to 0 during this interval. It would be 
fired if no Quad B/D failures were reported and no Z-translation 
is simultaneously specified; see jet table information for other 
conditions. 

10) As suggested by #1 - #3 above, the philosophy of #6 - #9 
above for Y-translation and Z-translation is not employed for 
X-translation. 
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Digital Autopilot ECS Routinea 


RCSDAPON 

Set TIME5 to cause program interrupt #2 in 0.6 seconds 
T5PHASE = 16324 (i.e. positive non-zero) 

Set bit 3 of RCSFLAGS = 1 (cause FDAI error display initial- 

ization) 

T5L0C = "RCSATT" 

Set bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = 01^ 

Return 

REDORCS 

If T5PHASE <: 0: 

T5PHASE = -1 
T5L0C = "RCSATT" 

Proceed to "RCSATT" 

RCSATT 

TS = channel 31 

If bits 14-13 of C 3 IFLWRD 00^: 

TS = C 3 IFLWRD 

If bit 15 (G&N Autopilot Control complement) of TS = 1; 

Set bit 14 of RCSFLAGS = 1 
HOLDFLAG = tMAX 
ERROR = +0 

If bit 14(Free Mode complement) of TS = 1 : (TS re-computed) 

T5PHASE = 8192 (i.e. positive non-zero) 

Set TIME 5 to cause program interrupt #2 in 0.1 second 
Perform "ZERO JET" 

Proceed to "KMATRIX" 

If T5PHASE > 0: (Tag here "SETT 5 ") 

HOLDFLAG = 1 
Proceed to "REDAP" 
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If T5PHASE = +0, proceed to "T5PHASE2" 

If T5PHASE < 0, proceed to "REDAP" 

T5PHASE = +0 (was -0, indicating phase l) 

T5TIME = TIME5 

Set TIME5 to cause program interrupt #2 in 0.02 seconds 
If bit 6(N0IMUDAP) of IMODES33 =1: (IMU data not usable) 

Set bit 14 of RCSFLAGS = 1 
HOLDFLAG = 8192 
TS = channel 31 

If bits 14-13 of C31FLWRD ^ OO 2 : 

TS = C31FLWRD 

If bit 14(Free Mode complement) of TS = 0, Resume 
Set TIME5 to cause program interrupt #2 in 0.2 seconds 
T5PHASE = 16364 (i.e. positive non-zero) 

Resume 

If bit 14 of RCSFLAGS = 1, proceed to "KMiTRIK" (Tag here "RATEFILT") 

DRHO = DRHO - K DRHO - ADOT 

S^-^ATTKALMN 

Set RHO^ = CDU and TS = RH0„ 

Ox 0 

TS^ = - (TS - RHOq) (ones complement difference formed) 

Set RHO^ = CDU^ and TS = RHO^ 

TS 2 = - (TS - RHO^) (ones complement difference formed) 

DELTEMP = TSt + AMGBl TS^ 

X 1 2 

Set RH0„ = CDU and TS = RH0_ 

^ z ~ 

TS^ = - (TS - RHO 2 ) (ones complement difference formed) 

DELTEMP = AMGB4 TS 2 + AMGB5 TS„ 

y ^ ^ 

DELTEMP = AMGB7 TS„ + AMGB8 TS„ 

z td J 

DRHO = DRHO + DELTEMP 
MERROR = MERROR + DELTEMP 
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n 




ADOT = ADOT + K DRHO + KMJ DFT 

ATTKALMN 

(last term involves e.g. KMJ^ DFT.. 
for ADOT^) 1 

Proceed to "KMATRIX" 

KMATRIX 

TS = bits 4-1 of ATTSEC 
If TS = 0: 

Establish "AMBGUPDT" (priority 34 .) 

O 

ATTSEC = 9 
If TS ^ 0: 

ATTSEC = TS - 1 
If HOLDFLAG < 0: 

CDUXD = CDUXD + DELCDU, in range i 180° 

THETADX = CDUXD 

— sp 

If bit 4 of RCSFLAGS = 0: 

Set bit 4 of RCSFLAGS = 1 
Perform "NEEDIER" 

Re Slime 

Set bit 4 of RCSFLAGS = 0 

If bit 9(NEEDLFIG-) of FLAGWRDO = 0: (means do not display total 

attitude error; V62 and V 63 
set 1; V 6 l sets O) 

AK = - ERROR 
Resume 

If bit 6(N22ERNDS) of FLAGWRD9 =1: (set 1 by V62, 0 by V 63 ) 

ANGREF = THETAD (THETAD is N22) 

If bit 6(N22ERNDS) of FLAGWRD 9 = 0: 

ANGREF = CPHK (CPHK is Nl?) 
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TS = CDU 


n 

AK- = (ANGREF - TS ) + AMGBl (ANGREF - TS ) 

u XX y y 

AK^ = AMGB4 (ANGREFy. - TS^) + AMGB5 (ANGREF^ - TS^) 

AK^ = AMGB7 (ANGREF - TS ) + AMGB8 (ANGREF - TS ) 

^ y y z z 

Res\:inie 

AMBGUPDT (Established once a second by "KMATRIX", and also by "REDAP"). 

If bits 15-14 (DAPBITl, DAPBIT 2 ) of FLAGWRD 6 ^ OI2, End of job 
AMGBl = singp CDU^, 

AMGB8 = coSgp (CDU^ - (ones complement difference 

formed when K ^an ^^ed) 

AMGB4 - =os^p(CDU^ - CDU^ 

MGB5 = sin^p (CDU^ - 

AMGB7 = - =in,p(CDU^ - CDU, 

End of job 

REDAP ^ 

Perfom "S41.2" 

Perform "S 4 O.I 4 " 

ERROR = 0 
BIAS = 0 
TAU = 0 
ATTSEC = 0 
DRHO = 0 
DFT = 0 
MERROR =0 
ADOT =0 
WBODY = 0 
Perform "ZERO JET" 

CHANTEMP = 77777g , j 
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CH31TEMP = 77777q 
SLOPE = K 

p24 

T5TIME = 4 

ATTKALMN = 11 
RHO = CDU 

T5PHASE = +0 

If bit 6 (N 0 IMUDAP) of IMODES33 =1: (IMU data not usable) 

ATTKALMN = 0 

RCSFLAGS = 20004g (bits 14 and 3 = l) 

If bit 6(N0IMUDAP) of IMODES 33 = 0: 

Establish "AMBGUPDT" (priority 34 .) 

O 

RCSFLAGS = 00004g (bit 3 = l) 

Set TIME5 to cause program interrupt #2 in O.O 6 seconds 
Resume 
ZEROJET 

BLASTi+1 =0 (i = 0,1,2) 

BLASTi+0 =0 (i = 0,1,2) 

iW0RD2 =0 (i = R,P,Y) 

iWORDl =0 (i = R,P,Y) 

BLASTl+1 = 4 

BLAST2tl = 11 

Set bit 1 of RCSFLAGS = 0 

T6L0C = "T 6 START" 

Set TIME6 to 23 (cause program interrupt #1 in about 14 ms) 
Perform "CI 3 STALL" 

Set bit 15(TIME6 Count Enable) of channel 13 = 1 
Return 
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T5PHASE2 


If ATTKALMN > 0: 

ATTKALMN = ATTKALMN - 1 
TS = 8 - T5TIME 
If TS < 0: 

TS = 2 

Set TIME5 to cause program interrupt #2 in TS centi-seconds 

T5PHASE = -0 

Resume 

Set TS = TIME5 and TIME5 to cause program interrupt #2 in 0.02 seconds 

T5TIME = T5TIME + TS 

If( |CDUJ + > 0: 

Set bit 14(STIKFLAG) of FLAGWRDl = 1 
HOLDFLAG = +0 

If bit 15 of RCSFLAGS = 1: (RATEINDX = 6 in "NEWANGL" for R60/R67) 

ATTKALMN = -1 
If bit 15 of RCSFLAGS = 0: 

ATTKALMN = 0 

Set bits 10-5 of RCSFLAGS = 0 (initialize forced firing bits) 

TS = channel 31 (bits 6-1 are RHC command complements) 

TS^ = bits 6-1 of ( CH31TEMP/1(- TS) + (- CH31TEMP) (\ Ts) 

(gives ones in bits whose 

me ^ n* values differ from 

f u. CH31TEMP value) 

CH31TEMP = TS 

RCSFLAGS = RCSFLAGS + 2^ TS^ (puts TS^ into bits 10-5) 

Set bits 13-11 of RCSFLAGS = 1 (rate damping) 

TS = bits 6-1 of (- CH31TEMP) (gives 1 where logic ones, i.e. 

binary zeros, were in input) 

If TS = 0, proceed to "AHFNOROT" (no RHC inputs) 

HOLDFLAG = TS 
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Perform "STICKCHK" 


Set bit 14(STIKFLAG) of FIAGWRDl = 1 
TS = channel 31 

If bits 14-13 of C 3 IFLWRD OO 2 : 

TS = C 3 IFLWRD 

If bit 14(Free Mode complement) of TS = 0: 

TS„ = (RCSFLAGS shifted right 4 places) (changed bits back 

to bits 6 - 1 ) 

TS = bits 6-1 of ( TS^/^ (- CH31TEMP)^ 

Proceed to 9'th line of "AHFNOROT" (TS bits 1 for 1-^0 transition) 
If bit 14 of RCSFLAGS = 1: 

Set TIME 5 to cause program interrupt #2 in 0.2 second 
T5PHASE = 16364 (i.e. positive non-zero) 

Resume 


If RATEINDX - 5 > 0: 

ATTKALMN = -1 

Perform the following for i = 2,1,0 (j = I, P, R respectively): 

If jMANNDX = 0: 

WBODY. = 0 
1 

If jMANNDX ^ 0: 

TS = jMANNDX + RATEINDX - 1 


WBODY. = K 

1 mantab, 


TS 


If bits 13-11 of RCSFLAGS = 0: (damping done) 


MERROR. = MERROR. - K 

1 1 mantab 


TS 


If bits 13-11 of RCSFLAGS 0: 


MERROR. = 0 
1 

ERROR. = MERROR. 
1 1 


sp 
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TSi = ADB + 


i = 2 


Proceed to "JLOOP" 

AHFNOROT 

TS = channel 31 

If bits 14-13 of C31FLWRD ^ OO 2 : 

TS = C31FLWRD 

If bit 14(Free Mode complement) of TS = 0: 

HOLDFIAG = 1 (Tag here "FREECONT") 

TS, = channel 32 (bits 6-1 are minimum impulse command 
^ complements ) 

TS = bits 6-1 of ( CHANTEMP 0 (- TS^)^ (gives ones in bits 

changed from 1 to 0) 

CHANTEMP = TS^ 

Perfom "STICKCHK" (Enter here from "T5PHASE2" for RHC minimum 

impulse; tag "RHCMINP") 

TAU^ = K . , 

TAUt = k . , 

1 "^^^m/vnnDX 

TAU„ = K . , 

ERROR = 0 

T5L0C = "JETSLECT" 

Resume 

If bit 14 of RCSFLAGS = 1: 

Set TIME 5 to cause program interrupt #2 in 0.2 seconds 
T5PHASE = 16364 (i.e. positive non-zero) 

Resume 

If bit 13 (Hold Mode complement) of TS = 0: (TS re-computed) 

If HOLDFLAG ^ +0: (Tag here "HOLDFUNC") 

WBODY = 0 
BIAS = 0 



) 
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(If HOLDFLAG ^ +0) : 

If bits 13-11 of RCSFLAGS ^ 0: 
ERROR = 0 


TS^ = ADB + K 
i = 2 


afrg 


Proceed to "JLOOP" 

HOLDFLAG = +0 
THETADX = CDU 

If bit 13 (Hold Mode complement) of TS = 1: (since bit 14 = 1, 

this means Auto) 

If HOLDFUG > 0: 

WBODY = 0 


BIAS = 0 

If bits 13-11 of RCSFLAGS 0: 
ERROR = 0 


TS^ = ADB + K 
1 = 2 


afrg 


Proceed to "JLOOP" 

HOLDFLAG = +0 
THETADX = CDU 

TS^ = CDUy. - THETADY (ones complement difference formed) (Tag "ATTHOLD") 

TS 2 = ~ THETADZ (ones complement difference formed) 

ERRORo = “ THETADX) + AMGBl TS^ (ones complement diff.) 

ERROR^ - AMGB4 TS^ + AMGB5 TS 2 

ERROR 2 = AMGB7 TS^ + AMGB8 TS 2 
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If HOLDFLAG < 0: 


ERROR = ERROR + BIAS 


TS^ = ADB + K 
1 = 2 


afrg 


Proceed to "JLOOP" 


JLOOP 


EDOT = ADOT. 

1 

If HOLDFUG f 0: 

EDOT = EDOT - WBODY. 

1 

AERR = ERROR. 

1 

ADBVEL = TS, sgn EDOT (-0 is negative) 

X ' 

AERRVEL = AERR sgn EDOT (-0 is negative) 

If AERRVEL - ADB + K , , 0: 

whdsop ^ 

If ( |ED0T|-K„j^)>0: 

TS = K . sgn EDOT - EDOT 
wim 

Proceed to "JTIME" 

If I EDOTI / SLOPE + TS^ + AERRVEL >0: 
Proceed to "J23" 


(tag "J6.") 
(tag "J8") 
(tag "J22") 

(tag "NJ22") 


If IeDOtI - > 0, proceed to "J23" 

If AERRVEL + TSt + K . . X 0: (tag "NJ23") 

1 ■wmncLsop 

TS = K . sgn EDOT - EDOT (tag "J22") 

wim 

Proceed to "JTIME" 


TS = - EDOT - + ADBVEL) (tag "J24") 

Proceed to "JTIME" 
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If AERRVEL 


TS;^ 0: 


If ADB - AERRVEL - |ED0T\/ SLOPE ^LO: 

TS — - EDOT (tag "J18") 

Proceed to "JTIME" 


Proceed to "J23" 

If AEKHVEL - TSj^ - < 0 (tag "J7") 

TS - K 3 Qpg 2 (ADBVEL - AERR) - EDOT (tag "J20") 

Proceed to ”JTIME’' 

TS = - sgn EDOT - EDOT (tag "J21") 

Proceed to "JTIME" 

J23 Entered if conclude in deadzone. 


j = 13 - i 

Set bit j of RCSFLAGS = 0 (reset rate damping bit) 

If i = 2: 

TS = 00300g (bits 8-7, yaw command) 

If i = 1: 

TS = 00060g (bits 6-5, pitch command) 

If i = 0: 

TS = 01400g (bits 10-9, roll command) 

If RCSFLAGS n TS =0: (no forced firing from "T5PHASE2" RHC) 

Proceed to second line of "JTIME" (note that TAU. not 

explicitly se^; O) 


TS = - EDOT 
Proceed to "JTIME" 


(tag "J18") 


JTIME 

TAU^ = JdM^ TS, with magnitude limited < 2^*^ centi-seconds 
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If i > 0: 


i = i - 1 
Proceed to "JLOOP" 

T5L0C = "JETSLECT" 

Resuine 

JETSLECT 

TS = 6 - T5TIME 
If TS 4 0: 

TS = 2 

Set TIME5 to cause program interrupt #2 in TS centi-seconds 

TIME6 = . (note that any jets desired to be on for 

interval '*^86-100 ms will remain on for 
full 100 ms) 

Perform "C13STALL" 

Set bit 15 (TIME6 Count Enable) of channel 13 = 1 

TS = bits 12-7 of - (channel 31) (gives "true" values of 

translation hand controller 
bits) 

If TS = 0: 

XNDXl = 0 
XNDX2 = 0 
YNDX = 0 
ZNDX = 0 
If TS 7^ 0; 

XNDXl = bits 8-7 of TS, shifted right 6 places (to bits 2-1) 
XNDX2 = XNDXl 

YNDX = bits 10-9 of TS, shifted right 8 places (to bits 2-1) 
ZNDX = bits 12-11 of TS, shifted right 10 places (to bits 2-1) 
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(If TS ^ 0): 

If bit 14 of DAPDATRI = 0: (means LM-off) 

ATTKALMN = -2 

If bit 14 of DAPDATRI = I: (means LM-on) 

ATTKALMN = -3 
If XTRANS = 1: 

XNDXI = 0 

If XTRANS = -1: 

XNDX2 = 0 

If TAU^ - 0: 

PINDEX = 0 

If TAU^ > 0: 

PINDEX = 1 

If TAU^ < 0: 

PINDEX = 2 

If RACFAIL = 0: 

TS = K , , 

xtndx^jjpXi 

If RACFAIL > 0: 

TS = 9 

If RACFAIL < 0: 

TS = 12 

TS = TS + PINDEX 

PWORDl = bits 10, 9, and 4-1 of K ^ , 

pytabijg 

NPJETS = bits 10-9 of PWORDl, shifted right 8 places (to bits 2-1) 
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If TAU 2 = 0: 

YINDEX = 0 
If TAU2> 0: 

YINDEX = 1 
If TAU 2 < 0: 

YINDEX = 2 
If RBDFAIL = 0: 

If RBDFAIL ^ 0: 

TS = 9 

If RBDFAIL <0: 

TS == 12 

TS = TS + YINDEX 

YWORDl = bits 12, 11, and 8-5 of 

NYJETS = bits 12-11 of YWORDl, shifted right 10 places (to bits 2-1) 
If TAUq = 0: 

RINDEX = 0 
If TAUq ^ 0: 

RINDEX = 1 
If TAUq < 0: 

RINDEX = 2 

If ACORBD ^ +0, proceed to "BDROLL" 
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If 


RACFAIL = 0: 


) 




If 


If 


TS = ISctndx 


YNDX 


RACFAIL •> 0: 
TS = 9 
RACFAIL < 0: 


TS - 12 


TS = TS + RINDEX 
RWORDI = bits II-5 of 

TS 

If ZNDX 0: 

NRJETS = (bits II-9 of RWORDI, shifted right 8 places) - 2 
Proceed to "ROLLTIME" 

If RBDFAIL - 0: 


TS = 0 

If RBDFAIL > 0: 

TS = 3 

If RBDFAIL < 0: 

TS = 6 

TS = TS + K^nliidx2NDx 

TS^ = RWORDI + (bits 11-9, 4-1 of K^^tab ^ 

TS 

NRJETS = (bits 11-9 of TS^, shifted right 8 places) - 4 

If NRJETS ^ 0: (have a net roll torque) 

RWORDI = TS^ 

Proceed to "ROLLTIME" 
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If TAUq — 0: (i.e. no roll requested) 

RWORDl = TS^ 

Proceed to "ROLLTIME" 

NRJETS = (bits 11-9 of RWORDl, shifted right 8 places) - 2 
Proceed to "ROLLTIME" (Z-translation ignored in favor of roll) 

BDROLL 

If RBDFAIL = 0: 

= ^tndx 

xi,nax2jjj)X 

If RBDFAIL > 0: 

TS = 9 

If RBDFAIL < 0: 

TS = 12 

TS = TS + RINDEX 

RWORDl = bits 14-12 and 4-1 of 

TS 

If YNDX = 0: 

NRJETS = (bits 14-12 of RWORDl, shifted right 11 places) - 2 
Proceed to "ROLLTIME" 

If RACFAIL = 0: 


TS = 0 

If RACFAIL > 0: 
TS = 3 

If RACFAIL < 0; 
TS = 6 


TS = TS + K 


xnlndx. 


YNDX 


TS, = RWORDl + (bits 14-12, 8-5 of K 


■yztab^g 


) 
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NRJETS = (bits 14-12 of TS^, shifted right 11 places) - 4 
If NRJETS 0: (have a net roll torque) 

RWORDl = TS^ 

Proceed to "ROLLTIME" 

If TAUq =0: (no roll requested) 

RWORDl = TS^ 

Proceed to "ROLLTIME" 


NRJETS = (bits 14-12 of RWORDl, shifted right 11 places) - 2 

Proceed to "ROLLTIME" ( Y-translation ignored in favor of roll) 

ROLLTIME 

If TAUq - 0: 

DFTp, = K,„, 

RW0RD2 = RWORDl 

BLASTCH-0 = 0 

Proceed to "PITCHTIM" 

BLASTOtO = K^.4. TAU„ 

''^^NRJETS ° 


TS = BLASTOtO + K 


mptlsc 


If TS > 0: 


DFT^ = 

0 'i^^^NRJETS 

TAUq = TAUq - DFTq 


BUSTO+0 = K. 


ptlsc 


If TS 0; 


Limit BLASTO+0 

DFTq = NRJETS BLASTO+0 

TAUq = 0 
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If YNDX = 0: 


RW0RD2 = 0 

If ZNDX = 0, proceed to "PITCHTIM" 
Proceed to "ACBD2Z" 

If ACORBD <C -0: 

If (RACFAIL|>0: 

RW0RD2 = 0 

If ZNDX = 0, proceed to "PITCHTIM" 
Proceed to "ACBD2Z" 


TS = K . , 

xtndx^DX 

RWORD2 = bits 11-5 of K, 


rtab, 


TS 

If ZNDX = 0, proceed to "PITCHTIM" 


Proceed to "ACBD2Z" 

If RACFAIL = 0: 

TS = 0 

If RACFAIL > 0: 

TS = 3 

If RACFAIL < 0: 

TS = 6 

RW0RD2 = bits 14-12, 8-5 of 

NRJETS = (bits 14-12 of RW'0RD2, shifted right 11 places) - 2 

DFTq = DFTq + NRJETS - BLASTCHO) 

If ZNDX = 0, proceed to "PITCHTIM" 

Proceed to "ACBD2Z" 
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ACBD2Z 





If ACORBD ^ +0: 

If (RBDFAIL1> 0, proceed to "PITCHTIM" 
TS = ^tndx 

■x-Gnax2NDx 

RW0RD2 = RW0RD2 + (bits 14-12, 4-1 of 
Proceed to "PITCHTIM" 

If RBDFAIL = 0: 

TS = 0 

If RBDFAIL > 0: 

TS = 3 

If RBDFAIL < 0: 

TS = 6 

TS = TS + K^nlndx 

-xniJiax2i^QX 

RW0RD2 = RW0RD2 + (bits 11-9, 4-1 of K , ^ 

yztat 

NRJETS = (bits 14-9 of RW0RD2, shifted right 
DFTq = DFTq + NRJETS - BLASTO+O) 

Proceed to "PITCHTIM" 

PITCHTIM 

If TAU^ = 0: 

DFT^ = 0 
PW0RD2 = PWORDl 
BLASTl+O = 0 
Proceed to ’’YAWTIME” 

If TAU^ < 0: 

NPJETS = - NPJETS 


’^rtab^g^ 


’ts^ 

8 places) - 2 
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BLASTl+0 = K .. TAU^ 

NPJETS -‘■ 
TS = BUSTl-fO + 

If TS > 0: 

DFT, = K,„, 

^ "*"npjets 

TAU]_ = TAU^ - DFT^ 
BLASTl+0 = K 

ptlsc 

If TS ^ 0: 

Limit BUSTl+o:^ K,, 

14 ms 

DFT^ = NPJETS BLASTI+O 
TAU^ = 0 
TS = 0 


If RACFAIL = 0: 


TS = K , ^ 


PW0RD2 = bits 10, 9 , and 4-1 of K , , 

pytabijig 


Proceed to "YAWTIME", 


(is 0 for TS = 0) 


YAWTIME 

If TAU 2 = 0; 

DFT 2 = 0 

YW0RD2 = YWORDl 

BLAST2+0 = 0 

Proceed to "T6SETUP" 

If TAU 2 < 0; 

NYJETS = - NYJETS 

BLAST2tO = ie.4- TAU, 

NYJETS 

TS = BLAST2+0 + 
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If TS > 0: 


DFTp ^dftm 
TAU2 = TAU^ - DFT2 
BLAST2-K) = K 

ptlsc 

If TS < 0: 

Limit BLAST2+0-^ hl^mR 
DFT 2 = NYJETS BLAST2+0 
TAU2 = 0 
TS = 0 

If RBDFAIL = 0: 


TS = 


^tndx^ 


^XNDX2 

YW0RD2 = bits 12, 11, and 8-5 of K , , 

’ pytab, 

Proceed to "T6SETUP" 


TS 


(is 0 for TS = 0 ) 


T6SETUP 

BLASTO+1 = 0 
BLASTl+1 = 4 
BLAST2+1 = 11 

If BLASTl+0 - BLASTQtO 40: 

Set BLASTO = BLASTl and BLASTl = BLASTS 

If BLAST2-K) - BLASTl+0^ 0: 

Set BLASTl = BLAST2 and BLAST2 = BLASTl 

If BLASTl+0 - BLASTOtO ^ 0: 

Set BLASTO = BLASTl and BLASTl = BLASTO 

(now ordered BLASTO+0 >5' BLASTl+0 ^ 

BLAST2+0 = BLAST2+0 - BLASTl+0 BLAST2+0) 

BLASTl+0 = BLASTl+0 - BLASTOtO 
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T5L0C = "RCSATT" 

Set bit 1 of RCSFLAGS = 0 
T5PHASE = -0 
Resume 
T6START 

If |TIME6( > 0, Resume 
If bit 1 of RCSFUGS = 0: 

Set bit 1 of RCSFLAGS = 1 

Channel 6 = bits 8-1 of RWORDl 

Channel 5 = bits 8-1 of (PWORDl + YWORDl) 

If BLASTCH-0 > 0: 

TIME6 = BLASTOO 
BLASTGfO = 0 
Perform "C13STALL" 

Set bit 15(TIME6 count enable) of channel 13 = 1 
Resimoe 

If BLASTOtO = 0: 

TS = BLASTCH-1 
Perform "REPLACE" 

BLASTOO = - l/l6 
If BLASTl+0 >0: 

TIME6 = BLASTl+0 
BLASTl+0 = 0 
Perform "C13STALL" 

Set bit 15(TIME6 count enable) of channel 13 = 1 
Resume 
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If BLASTl-K) = 0: 

TS = BLASTl+1 

Perform "REPLACE" 

BLASTl+0 = -1/16 

If BLAST2+0 > 0: 

TIME6 = BLAST2+0 

BLAST2+0 = 0 
Perform "C13STALL" 

Set bit 15 (TIME6 count enable) of channel I3 
Resume 

If BLAST2+0 = 0: 

TS = BLAST2+1 
Perform "REPLACE" 

BLAST2+0 == -1/16 
Resume 
REPLACE 

If TS = 0: (roll information) 

Channel 6 = bits 8-1 of RW0RD2 
Return 

If TS = 4: (pitch information) 

TS^ = bits 8-5 of channel 5 

Channel 5 = bits 8-1 of (TS^ + PW0RD2) 

Return 

If TS = 11: (yaw information) 

TS-j^ = bits 4~1 of channel 5 

Channel 5 = bits 8-1 of (TS^ + YW0RD2) 

Return 
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Quantities in Computations 

See also list of major variables and list of routines 


ACORBD: See Digital Autopilot Interface Routines. 

ADB: See Digital Autopilot Interface Routines. 

ADBVEL: Single precision value of (ADB + sgn EDOT used in "JLOOP", 

scale factor B-1, units revolutions. 

ADOT (ADOTq, ADOT^, ADOT 2 ): Filtered value of roll, pitch, and yaw 

body-angle rates (about "control axes"), scale factor B-3, 'units 
revolutions/deci-second (one deci-second is 0.1 seconds, the 
iteration rate of RCS DAP) . Alternatively, could be considered 
scaled BO in "units" of 450°/second. Cells are OMEGAB in TVC DAP. 

AERR: Single precision value of ERROR^ about appropriate axis used 
in "JLOOP", scale factor B-1, units revolutions. 

AERRVEL: Single precision value of AERR sgn EDOT used in "JLOOP", scale 
factor B-1, units revolutions. 

AK (AKq, AKj^, AK 2 ): See Digital Autopilot Interface Routines. 

AMGBl, AMGB4, AMGB5, AMGB7, AMGB8: Single precision matrix elements 
which are used by RCS DAP to transform information from gimbal 
to control axes, scale factor BO, computed once per second 
by "AMBGUPDT". The matrix from gimbal to control axes may 
be ■written as: 


1 AMGBl 0 

0 AMGB4 AMGB5 

p AMGB7 AMGB8 

In order to "account for the roll displacements of the reaction 
jets with respect to navigation base coordinates", the outer 
gimbal angle (CDU^) used to compute the matrix elements is 
decremented by thus giving the "control axes" result. 

ANGREF: Value of reference angle (THETAD or CPHIX) used in "KMATRIX" 
to compute display information of total attitude error (if 
required), scale factor B-1, units revolutions. 

ATTKALMN: Single precision q'uantity, scale factor BI 4 , used to select 
appropriate gains in "RCSATT" . To initialize the filter, cell is 
set to 11 (decremented to 10 before used) in "REDAP", and decremented 
in "T5PHASE2" (with subsequent performance of further computations, 
including jet firings, bypassed until ATTKALMN = 0). A value of 0 


DPRC-24 


is the normal steady-state filter gain value; a setting of -1 is 
used for high-rate (RATEINDX = 6) automatic maneuvers (set in 
"T5PHASE2" if bit 15 of RCSFLAGS = l) or RHC-commanded maneuvers 
at high rate; a setting of -2 is used (set in "JETSLECT") if 
translation hand controller inputs with LM-off are provided; and 
a setting of -3 is used for translation inputs with LM-on, The 
reset to 0 is accomplished (from negative values) in "T5PHASE2" 
if bit 15 of RCSFUGS = 0. 

ATTSEC: Single precision quantity, scale factor B14, initialized to 0 
in "REDAP" and used in "KMATRIX" to caiise "AMBGUPDT" to be 
established once a second (every tenth entrance to "KMATRIX"). 

BIAS (BIASq, BIAS^, BIAS 2): Set of single precision angles, scale factor 

B-1, mits revolutions, "added to the attitude errors to provide 
additional lead and prevent overshoot when starting an automatic 
maneuver." They are added to ERROR (used as the attitude error 
in "JLOOP") if HOLDFLAG negative, and the values are computed in 
"LOCSKIRT" and "MANUSTOP" (where set 0). Magnitude corresponds 
to the value of (I/0.6) times maneuver rate (see K. . in 
Attitude Maneuvers), and otherwise is 0. oiasc 

BLASTO, BLASTl, BLAST2: Set of 3 quantities handled double precision, used 
for RCS jet burn time control. Before "T6SETUP" is entered, BLASTO 
is associated with roll, BLASTl with pitch, and BLAST2 with yaw. The 
most significant halves of each word have required firing time for 
RWORDl, PWORDl, and YWORDl respectively, scale factor BIO, units 
centi-seconds. The least significant halves contain an index which 
identifies the axis in the most significant half (set at start of 
"T6SETUP" to 0, 4, and 11 respectively for convenience in the coding). 
Cells subsequently arranged in order of increasing time durations, 
then replaced with time intervals. In "T6START", most significant 
half set +0 if associated time in TIME6, and -1 (BI4, i.e. -I/16 BIO) 
after the expiration of that interval. 

C3IFLWRD: Single precision flagword used for backup of bits 15-13 of channel 
31 (by bits 15-13, i.e. digit "A") and bits 5-4 of channel 33 (by bits 
5-4, i.e. digit "D"). It can be loaded by NOl means (address 0374-). 

For digit A, a value of 0 (or 4) means should use bits 15-13 of channel 
31; values of 1-3 mean G&N Control (Free, Attitude Hold, and Auto 
respectively); values of 5-7 mean SCS Control. For digit D, a value 
of 0 means use bits 5-4 of channel 33; of 1-3 mean optics CMC, Zero, 
and Manual respectively (values of 4-7 mean the same as 0-3 respectively) . 
Should be pad -loaded to zero; digits B, C, and E ("ABODE") are ignored. 

CDUXD: See Attitude Maneuvers (used in "KMATRIX" to update THETADX if 
HOLDFLAG is negative). 

CH3ITEMP: Single precision cell used in "T5PHASE2" to contain the previous 
value of channel 31 inputs (bits 6-1 are rotational hand controller 
toputs) if bits 6-1 change, in order to detect binary 1-^0 transitions 
(logic 0 to 1) for RHC control purposes: binary 0— >1 are also 
detected, of coiarse. It is initialized to 77777g by "REDAP". 
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CHANTEMP: Single precision cell \ised in Free Mode (at the start of 

"AHFNOROT") to retain previous input of channel 32 (cf. CH31TEMP), 
for use in providing "minimum impulse" control. Initialized to 
777773 in "REDAP". 

CPH3X: Set of reference angles for attitude error (AK) display, scale 
factor B-1, units revolutions. They can be loaded by NI7, or 
set to present CDU values by verb 60 (and displayed on FDAI by 
verb 63 ) . 

DELCDU: See Attitude Maneuvers (used in "KMATRIX" to increment CDUXD 
values if HOLDFLAG negative). 

DELTEMP: Value of CDU angle change, converted to body rates, computed 
in "RCSATT", scale factor B-1, units revolutions/deci-second. It 
is computed double precision. 

DFT (DFTq, DFT^, DFT 2): Single precision equivalent times, scale factor 

BIO, units centi-seconds, giving the equivalent single-jet burning 
time computed for roll, pitch, and yaw axes respectively, for use 
in the rate filter (in "RCSATT") to update body-angle rates. 

DRHO (DRHOq, DfiHO^, DRHO 2 ): Value of body rate used as input to ADOT 

filter, scale factor B-1, units revolutions/deci-second, computed 
in "RCSATT" as the difference between measured (from CDU data) 
and ADOT body rates, plus a weighted estimate of previous DRHO. 

EDOT: Value of attitude rate error used in "JLOOP", scale factor B-3, 
units revolutions/deci-second (set to ADOT., decremented by 
WBODY^ if HOLDFLAG / O) . Absolute value sfered in EDOTVEL. 

ERROR (ERRORq, EEiROR^, ERROR2): Single precision value of attitude error 
for automatic maneuvers or attitude hold (computed in "AHFNOROT"), 
or RHC maneuvers (loaded with MERROR in "T5PHASE2"), used to load 
AERR at the start of "JLOOP". Scale factor is B-1, units 
revolutions. Set 0 if free mode inputs are made, and can be 
displayed on attitude error needles (AK = - ERROR) if bit 9 
(NEEDLFni) of FLAGWRDO = 0 (by e.g. V6l means). 

HOLDFLAG: See Digital Autopilot Interface Routines. 

IMODES33' See IMU Computations. 

JdM (JdMQ, JdM^, JdM 2 ): See Digital Autopilot Interface Routines. 

^14ms‘ precision constant, program notation "=LiMS", scale 

factor BIO, units centi-seconds. Value is 23 x 2”^, corresponding 
to about 14.4 milliseconds. 

^afrg* precision constant, program notation "FOUR", scale factor 

B-1, units revolutions, giving the "flat region" for "JLOOP" (the 
offset of the dead-zone line when the rate error changes polarity). 

Value is 4 X 2“14, corresponding to about 0 .044°( "encourage limit cycle"). 


DPRC-26 


Rev. 0 


%ftm. • single precision constants, program notation "DFTMAX", 

1 scale factor BIO, units centi— seconds . Values are: 


i 

Value 


True 

Value 

-3 

-480 X 


-0.3 

seconds 

-2 

-320 X 

2-14 

-0.2 

seconds 

-1 

-l60 X 

2-14 

-0.1 

seconds 

0 

0 


0.0 

seconds 

1 

l60 X 

2-14 

0.1 

seconds 

2 

320 X 

2-14 

0.2 

seconds 

3 

480 X 

2-14 

0.3 

seconds 


Kgni.: Set of single precision constants, program notation "GAINl", 
"^scale factor BO, used in "RCSATT" to obtain a new value of 
DRHO (from samples taken 10 times/second). Value of index 
given by contents of ATTKALMN. 


i Value True Value 


10 

0.9342 

0.93420 

9 

0.8151 

0.815 12 

8 

0.6933 

0.69330 

7 

0.5970 

0.59698 

6 

0.5223 

0.52228 

5 

0.4634 

0.46338 

4 

0.4161 

O.416O8 

3 

0.3774 

0.37738 

2 

0.3452 

0.34521 

1 

O.3I8O 

0.31799 

0 

0.0640 

0.06403 

-1 

0.2112 

0.21118 

-2 

0.8400 

0.84003 

-3 

0.2112 

0.21118 


True Value obtained by 
converting octal memory 
information to decimal. 


(steady-state gain) 

i high-rate automatic/RHC maneuvers 
LM-off translation) 

LM-on translation) 


^gn2- • single precision constants, program notation "GAIN2" 

^ scale factor BO, used in "RCSATT" to obtain a new value of 
ADOT (from DRHO information acquired 10 times/second). Value 
of index given by contents of ATTKALMN. 


i 

Value 

True Value 


10 

0.8683 

0.86829 

See above note for 

9 

O.48I7 

0. 48169 


8 

0.2955 

0.29547 

gnlj_ 

7 

0 . 1985 

0.19849 


6 

0.11+22 

0.14.221 


5 

0.1069 

0 . 10687 


4 

O.O832 

O.O8319 


3 

0.0666 

0.06659 


2 

0.0545 

0.05450 


1 

0.0454 

0.04541 


0 

0.0016 

0.00159 


-1 

0.0174 

0.01740 


-2 

0.3600 

0.35999 


-3 

0.0174 

0.01740 
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K 


: Single precision constant, program notation "-75DBGS", scale 
mo egs factor B-1, units revolutions. Nominal value is -0. 41666, 

corresponding to approximately -75°. Octal value is 62524g, ■which 
corresponds (after a one-bit correction reflecting formation of the 
absolute value) to - 15254g> or about -75-015° (ignoring 2's complement). 


K . , (i = 0-7): Set of single precision constants, program notation 
1 "MANTABLE", scale factor B-9, units revolutions/de ci-second. 

The single precision constants are shifted right (double precision) 
by 6 places for loading into WBODY and by 8 places for decrementing 
MERROR in "T5PHASE2" . Nominal values are: 


i 

Value 

CorresDonds to 


0 

0.0071111 

0.05 degree/sec 

Nominal value times 

1 

- 0.0071111 

-O.O 5 degree/sec 

3600/512 gives value 

2 

0.028444 

0.20 degree/sec 

in degree s/sec. 

3 

-0.028444 

-0.20 degree/sec 


4 

0.071111 

0.50 degree/sec 


5 

- 0.071111 

- 0.50 degree/sec 


6 

0 • 2 ^/ 4.444 

2.00 degree/sec 


7 

— 0 • 284444 

-2.00 degree/sec 



^mintuj ■ °^ single precision constants, program notation "MINTAU", 

^ scale factor BIO, units centi-seconds . Values for i = 0 and 
1 = 3 are zero; for i = 1, value is 23 x 2“^ (about 14*4 ms); 
and for i = 2, value is -23 x 2~^ (about -14. 4 ms). 


^ptlsc* Single precision constant, program notation -.ISEC", scale 
factor BIO, units centi— seconds . Value is — 160 x 2-14; 
corresponding to -0.1 second. 


Knjt- ■ °^ single precision constants, program notation "NJET", 

^scale factor BO, used to correct jet burn times (which are derived 
based on one-je't operation) for the number of jets actually to 
be used, and also to compensate for polarity of TAU (negative for 
negative jets). Values are: 


i 

Value 

-3 

-0.333333 

-2 

-0.5 

-1 

-0.999999 

0 

0.0 

1 

0.999999 

2 

0.5 

3 

0.333333 


K 24: Single precision constant, program notation "=.24", scale factor 
B-2, value 0.24. Used in "REDAP" as an initial condition setting 
for SLOPE. Value corresponds to (-1) x -0.6 x 0.1 x 2^, where 
first term is an equation factor, second is slope of attitude 
rate error limit line vs attitude error (in units of (revolutions/ 
second )/revolution), third converts to units of deci-seconds, and 
fourth is scale factor. 
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^ptlsc; Single precision constant, program notation "=+.lSEC" scale 
factor BIO, units centi-seconds . Value is 160 x 2"^, corres- 
ponding to 0.1 second. 

Kpytab. " Single precision set of constants, program notation "PYTABLE", 
^ giving information on pitch and yaw jets selected, together 
with the niuiiber of jets used for the function. See information 
be low . 

^quadan' Single precision constant, program notation "QUADANGL", scale 
factor B-1, units revolutions, "used to accoimt for the roll 
displacements of the reaction jets with respect to navigation 
base coordinates." Value is 660 x 2 ~'^, corresponding to about 

7.251°. 

^rtab. ’ Single precision set of constants, program notation "RTABLE", 
igiving information on roll jets selected (for AC or BD quads), 
together with number of roll jets (with polarity) . See 
information below. 

^sope2' Single precision constant, program notation "SL0PE2", scale 
factor B-2, units (revolutions/deci-second)/revolution. 

Value is O. 32 , corresponding to (- 1 ) x -0.8 x 0.1 x 2^, where 
the first term is an equation factor, second is "hysteresis 
slope" of attitude rate error vs attitude error (in units of 
( revolutions/second)/revolution) , third converts to units of 
deci-seconds, and fourth is scale factor( helps disturbances). 

^hdsop* Single precision constant, program notation "WLH/SLOP", 
scale factor B-1, units revolutions. Octal value is 
OOllAg, corresponding to about 0 . 835 °. Nominal value 
is ( 0.4 + 0 .l)/ 0.6 = 0 . 833 °: first numerator term is 
nominal "rate limit" of 0.4°/second, second is nominal 
half -width of O.io/second, and denominator is SLOPE. 

\rim* Constant, program notation "WL", scale factor B-3, units 

revolutions/deci— second . Value is 0.0008888888, corresponding 
to about 0.4°/second (nominal "rate limit"). 

^imh" Constant, program notation "WLH", scale factor B— 3 , units 

revolutions/deci-second. Value is 0.0011111111, corresponding 
to about 0.5°/second ("rate limit" plus half -width of 0.1°/sec). 

^immh- Constant, program notation "WLMH", scale factor B-3, units 

revolutions/deci-second. Value is 0. 0006666666, corresponding 
to about 0 . 3 “/second ("rate limit" minus half -width of 0 . 1 °/sec). 

^hdsop' Single precision constant, program notation "WL-H/SLP", 
scale factor B-1, units revolutions . Octal value is 
00055g, corresponding to about 0.494°- Nominal value is 
( 0.4 - 0 . 1 )/ 0.6 = 0 . 500 °: cf. K^h(jgop i’oi’ meaning of terms. 
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K 1 , :Set of single precision constants, program notation "XLNINDX", 
^-^clXiscale factor Blit-, used to provide index information from 
input data on control configuration. Value is equal to i for 
i = 0, 1, and 2, and is equal to zero for i == 3* 


K^tndx ■ single precision constants, program notation "XLNNDX", 

i scale factor Bli(., used to provide index information for 
combining translation and rotation commands. Value is equal to 
(3 i) for i = 0, 1, and 2, and is equal to zero for i = 3* 


K 4 . ^ • Set of single precision constants, program notation "YZTABLE", 
yz ao^ giving information permitting the combination of Y or Z 
translations with roll, as well as number of jets giving a 
"net roll torque". See information below. 


KMJ (KMJq, KMJj^, KMJ 2 ): See Digital Autopilot Interface Routines. 

MERROR: Value of integrated rate error used with RHC ("manual") control, 
scale factor B-1, units revolutions, computed in double precision 
(a single precision version is loaded into ERROR in "T5PHASE2" if 
manual RHC inputs are provided). The cells are initialized to 0 
in "REDAP" and are also set 0 in "T5PHASE2" if bits 13-11 of 
RCSFLAGS are not all 0 (i.e. damping not done); they are updated 
in "RCSATT" by the measured (from CDU first differences) attitude 
rate, from which is subtracted desired rate (if damping done) 
in "T5PHASE2". 


NPJETS: Single precision value of number of pitch jets to be fired, 
scale factor BI 4 . Sign of TAU^ added in "PITCHTIM" . 

NRJETS: Single precision value of number of roll jets to be fired 
(with sign indicating polarity), scale factor BI 4 . 

NYJETS: Single precision value of number of yaw jets to be fired, 
scale factor BI 4 . Sign of TAU 2 added in "YAWTIME". 

PINDEX: Single precision index parameter, scale factor BI 4 , indicating 
the polarity of the pitch command desired: 0 if none, 1 if plus 
pitch, and 2 if minus pitch. 

PMANNDX: See Digital Autopilot Interface Routines. 

PWORDl, F¥0RD2: Single precision cells containing in bits 8-1 the 
pitch-command bits to be loaded in channel 5 when "T6START" is 
entered and after the pitch time duration has expired, respectively. 
The pitch time duration originally is in BLASTl+O. 

RACFAIL: See Digital Autopilot Interface Routines. 

RATEINDX: See Digital Autopilot Interface Routines. 

RBDFAIL: See Digital Autopilot Interface Routines. 

RCSFLAGS: See Digital Autopilot Interface Routines. 
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RHO (RHOq, RHO^, RHOg) : Value of previous CDU information (initialized 
in "REDAP") used to compute input to attitude rate filter in 
"RCSATT", scale factor B-1, units revolutions in twos complement. 

RINDEX: Single precision index parameter, scale factor BIA, indicating 
the polarity of the roll command desired: 0 if none, 1 if plus 
roll, and 2 if minus roll. 

RMAMDX: See Digital Autopilot Interface Routines. 

RWORDl, RW0RD2: Single precision cells containing in bits 8-1 the 
roll-command bits (perhaps combined with Y and/or Z axis 
translation) to be loaded into channel 6 when "T6START" is 
entered and after the roll time duration has expired, respectively. 

The roll time duration originally is in BIASTO+0. 

SLOPE: Single precision cell, scale factor B-2, units (revolutions/ 

deci-second)/revolution, set to K in "REDAP" and not subsequently 
changed. It is a "variable" (i.e. in erasable memory) because the 
computer hardware divide order is designed to accept operands only 
from erasable memory. 

T5L0C: See Digital Autopilot Interface Routines. 

T5PHASE: Single precision cell, scale factor Blk, used to control the 
program branching that takes place when program interrupt #2 
transfers to "RCSATT". A positive non-zero value (of any magnitude) 
causes the RCS DAP to be initialized; a +0 value causes "T5PHASE2" 
to be entered; a negative non-zero value (of any magnitude) 
causes a DAP "restart" (some of the initialization, i.e. HOLDFLAG, is 
bypassed), as set in "REDORCS"; and a -0 value causes the 
computations in "RCSATT" to be continued (to perform the rate 
filtering functions if appropriate). The continuation of 
"RCSATT" is also known as "phase 1" of the RCS DAP, since the 
normal sequencing of the RCS DAP is: 


"REDAP"- (60 ms )-> "RCSATT"/ 
"T5PHASE2" 


(20 ms) 


ATTKALMN = 

To" 

Jit- 


■ — 0 — (20 ms ) - 


"JETSLECT" 


ATTKALMN = 
lATTKALMN 


3 


(14 ms) 

-L 


■■ i "T6START" 


"RCSATT" 
(phase 1) 


, =10 1^10 

-(40 ms) -J 


(60 ms) 


-(80 ms)— 


"T6START" is 
entered to 
fire auto 
jets'“1.154 
sec after 


"REDAP" . 
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T5TIME: Single precision time, scale factor Bl/V, units centi-seconds, 
used "to compensate for delays" in acting on program interrupt 
#2, so as to increase the likelihood that the CDU angles for 
determining attitude rates will be sampled at uniform 0 . 1 -second 
intervals. It is initialized in "REDAP" to k, thus causing 
"RCSATT" (phase 1) to be entered (8 - 4 = 4 cs) after "T5PHASE2" 
is entered the first time, i.e. 10 cs after RHO initialized. 

The "nominal" contents at other times should be zero (it is 
reset to TIME5 after "RCSATT" (phase 1 ) is entered). 

T6L0C: See Digital Autopilot Interface Routines. 

TAU (TAUq, TAU^, TAU 2 ): Single precision values of desired one-jet 

burn times to accomplish required rotations in roll, pitch, and 
yaw respectively, scale factor BIO, units centi-seconds. 

THETADX (THETADX, THETADY, THETADZ): Single precision values, scale 
factor B-1, units revolutions, twos complement, of desired 
CDU angles in DAP, used to form the attitude errors for " JLOOP" . 
Should not be confused with THETAD (components THETAD^ etc), which 
is a Major Variable. 

TIME5, TIME 6 : See Digital Autopilot Interface Routines. 

WBODY (WBODYq, WBODY^, WBODY^): Values of desired angular rates, 

scale factor B-3, units revolutions/deci-second, used to modify 
the rate error information in "JLOOP" if HOLDFLAG 0. Cells 
set in "NEWAJMGL" and "MANUSTOP" (to O) to desired rates, and in 
"T5PHASE2" for RHC inputs. Also set in R 6 I. Cells OMEGAC for TVC. 

XNDXl, XNDX2: Single precision index cells, scale factor BI 4 , set at 
the start of "JETSLECT" to the complement of bits 8-7 (shifted 
right 6 places) of channel 31, the X-axis translation hand 
controller input. XNDXl is the "AC Quad" translation index 
(reset 0 if XTRANS = 1 , and used in conjunction with "pitch" 
^formation) and XNDX2 is the "BD Quad" translation index 
(r 6 SGt 0 if XTRANS = — 1 , and used in conjunction with *’vaw” 
information) . 

XTRANS: See Digital Autopilot Interface Routines. 

YINDEX: Single precision index parameter, scale factor B14, indicating 
the polarity of the yaw command desired: 0 if none, 1 if plus 
yaw, and 2 if minus yaw. 

YMANNDX: See Digital Autopilot Interface Routines. 

YNDX: Single precision index cell, scale factor B14, set at the start 
of "JETSLECT" to the complement of bits 10-9 (shifted right 8 
places) of channel 3 I, the Y-axis translation hand controller input. 
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YWORDl, YW'0RD2: Single precision cells containing in bits 8-1 the 
yaw-command bits to be loaded in channel 5 when "T6START" is 
entered and after the yaw time duration has expired, 
respectively. The yaw time duration originally is in BLAST2-K). 

ZNDX: Single precision index cell, scale factor B14, set at the start 
of "JETSLECT" to the complement of bits 12-11 (shifted right 10 
places) of channel 31? the Z-axis translation hand controller input. 
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Value of Jet Table Data 


Information on pitch and yaw jets is stored in K tab- » where i 
is in the range 0 - I 4 . Bits 12-11 give the number 61 ya^ jets used 
to perform the rotation, and bits 10-9 give the number of pitch jets 
used. Bits 8-5 give the yaw output bits (to be loaded in the corres- 
ponding bit positions of channel 5), while bits 4-1 give the pitch 
output bits (to be loaded into the corresponding bits of channel 5)- 

The value of i depends on the failure information (or, if no 
failures, the X-translation requested) as well as the rotation 
desired . 

i = 3 a + b 

a = 0 for no X-translation 
= 1 for no failures, +X translation 
= 2 for no failures, -X translation 
= 3 for A (pitch) or B (yaw) failures 
= 4 for C (pitch) or D (yaw) failures 

b = 0 for no desired rotation (for PW0RD2 and'YW0RD2, 

= 1 for + desired rotation b = 0; a = 0 if any 

= 2 for - desired rotation failures) 

i ^pytab # of Yaw Yaw Jet # # of Pitch Pitch Jet # 


0 

OOOOg 

0 

— 


0 


— 

1 

51258 

2 

7,5 


2 


3,1 

2 

5252q 

2 

6,8 


2 


2,4 

3 

023 Ig 

0 

6,5 


0 


2,1 

4 

2421g 

1 

5 


1 


1 

5 

26l0g 

1 

6 


1 


2 

6 

0146g 

0 

7,8 


0 


3,4 

7 

25048 

1 

7 


1 


3 

8 

2442g 

1 

8 


1 


4 

9 

OOOOg 

0 

— 


0 


— 

10 

2421g 

1 

5 


1 


1 

11 

2442g 

1 

8 


1 


4 

12 

OOOOg 

0 

— 


0 


___ 

13 

25048 

1 

7 


1 


3 

14 

26 l 0 g 

1 

6 


1 


2 


Jet # 

Bit 

Quad 

Rotation 

Translation 


1 

1 

C 

+ Pitch 


+X 



2 

4 

A 

- Pitch 


+X 



3 

3 

A 

+ Pitch 


-X 



4 

2 

C 

- Pitch 


-X 



5 

5 

D 

+ Yaw 


■tx 



6 

8 

B 

- Yaw 


+x 



7 

7 

B 

+ Yaw 


-X 



8 

6 

D 

- Yaw 


-X 
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Information on roll jets (for rotation combined with translation) 
is stored in , where i is in the range 0 - 14. Bits 14-12 

give the number of^roll jets for using Quads B/D, while bits 11-9 give 
the number for using Quads A/C (the number in both cases is given by 
the value of the bits - 2, thus providing sign information) . Bits 
8-5 give the Quad A/C output (to be loaded into the corresponding 
bit positions of channel 6), while bits 4-1 give the Quad B/D output 
(likewise to be loaded into the corresponding bit positions of channel 
6). The value of i is defined as for K except that Y 

translation is associated with Quad A/C and t?ie Z translation with 
Quad B/D. 


i 

^rtab 

# of A/C 

A/C Jet # 

# of B/D 

B/D Jet 

0 

llOOOg 

0 


0 


1 

221258 

2 

15,13 

2 

11>9 . 

2 

00252g 

-2 

14,16 

-2 

10,12 

3 

1123 Ig 

0 

14,13 

0 

10,9 

4 

15421g 

1 

13 

1 

9 

5 

046 lOg 

-1 

14 

-1 

10 

6 

11146g 

0 

15,16 

0 

11, 12 

7 

15504g 

1 

15 

1 

11 

8 

04442g 

-1 

16 

-1 

12 

9 

llOOOg 

0 

— 

0 

— 

10 

15504g 

1 

15 

1 

11 

11 

046 lOg 

-1 

14 

-1 

10 

12 

llOOOg 

0 

— 

0 



13 

15421g 

1 

13 

1 

9 

14 

0444 2g 

-1 

16 

-1 

12 


The information in Ky^tab. ’^1'® same format as except 

that i = 3 c + d, where c = 0 for no failures; c = 1 for A or B 
failures; and c = 2 for C or D failures. The quantity d = 0 for no 
translation; d = 1 for + translation; and d = 2 for - translation. 


i 

^vztab # 

of A/C 

A/C Jet # 

# of B/D 

B/D Jet # 

0 

llOOOg 

0 

— 

0 

.... 

1 

112313 

0 

14,13 

0 

10,9 

2 

11146g 

0 

15,16 

0 

11, 12 

3 

llOOOg 

0 

— 

0 

... 

4 

046l0g 

-1 

14 

-1 

10 

5 

155048 

1 

15 

1 

11 

6 

llOOOg 

0 

— 

0 

... 

7 

15421g 

1 

13 

1 

9 

8 

04442g 

-1 

16 

-1 

12 


The "# 

of A/C" 

and "# of B/D" 

information is 

used to check that the 


resulting roll torque on the vehicle is not forced to be zero when the 
desired roll rotation is non-zero. The information permits the 

Quad not used for roll rotation to be used to satisfy translation 
commands . 
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The following roll-jet assignments are made (channel 6): 


Jet # 

Bit 

Quad 

Rotation 

Trans 1< 

9 

1 

B 

+ Roll 

+Z 

10 

k 

D 

- Roll 

+Z 

11 

3 

D 

+ Roll 

-Z 

12 

2 

B 

- Roll 

-Z 

13 

5 

A 

+ Roll 

+Y 

34 

8 

C 

- Roll 

+Y 

15 

7 

C 

+ Roll 

-Y 

16 

6 

A 

- Roll 

-Y 
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Digital Autopilot TVC Routines 


TVCDAPON Entered about O. 4 I seconds after "IGNITION" or if 

restart (from "CMDSOUT" for TVCPHASE = -l) 

TTMPl = 0 
YDELOFF = 0 
PDELOFF = 0 
DELYBAR = 0 
DEIPBAR = 0 
YERRB = 0 
PERRB = 0 

TVCDUMMY = 0 (not used) 

TEMRBG = 0 
ROLLWORD = 0 
ROLLFIRE = 0 

YTMPi =0 (i = 6 - 1) 

PTMPi =0 (i = 6 - 1) 

OMBGAB = 0 

OMEGAC = 0 
z 

OMEGAC = 0 
J 

T5L0G = "TVCINITl" 

Set TIME5 to cause program interrupt #2 in 0.01 second 
Resume 

TVCINITl Entered about O .42 seconds from start of "IGNITION 

Perform "MASSPROP" 

j = (bit 14 of DAPDATRl) (l for LM on, 0 for LM off) 
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If J = 1: (IM on) 


NIO. = C, , 

1 hbnlO^ 


If j = 0: 

NIO. = K 
1 

KTLXdl = C 


1 csmnlO^ 


ektlxdi 


J 


Perform "S40.15' 


(i = 0 - 14) 

(i = 0 - 14) 


If j = 1: 

"^^1 "" ^8csd2 
If j = 0: 


TS, = K, 

1 4csd2 

T5TVCDT = 16384 - TS^ 

Set bit 15(SWT0VER) of FLAGWRD9 = 0 


KPRIMEDT = 2 C , . TS^ 

ekprime . 1 

J 


(the 2 is due to scaling) 


REPFRAC = C 


erepfraCj 


CNTR = K 


tcorr . 
J 


VCNTR = 19 

PDELOFF = PACTOFF 
sp 

PCMD = PACTOFF 

DELPBAR = PACTOFF 
sp 

YDELOFF == YACTOFF 
sp 

YCMD = YACTOFF 

DELYBAR = YACTOFF 
sp 

If bit 13 of DAPDATRl =1: (LM off) 

If Utj 0.^-,. ERRBTMIM-i| > 2"^^: 

I Idattlim I ' 

ERRBTMPti = K . sgn ERRBTMBti 
attlim ^ 


(i = 0, 1: loaded v/ith 
- (error.. , ERRORp) in 
"IGNITION") 


) 
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(If bit 1.3 of DAPDATRl = l); 


n 


PERRB 

= ERRBTMP +0 

sp 


YERRB 

= ERRBTMP +1 

sp 



Set bit 3 of RCSFLAGS = 1 
Perform "NEEDIER" 

Proceed to "TVCINIT4" 

TVCINITA Can be entered from "CMDSOUT" if restart 

TVCPHASE = +0 
OGANOW = CDU 

X 

Call "TVCEXEC" in 0.51 seconds 
T5L0C = "DAPINIT" 

TIME5 = T5TVCDT 
Resume 

) DAPINIT Entered about (0.42 + ^ DAP cycle) sec after start of "IGNITION" 

TIME5 = T5TVCDT + (T5TVCDT - I 6384 ) (gives interrupt in one DAP cycle) 

T 5 LOC = "PITCHDAP" (entered about (0.42 + 1.5 DAP cycle) sec after 

start of "IGNITION": for LM-off, O .48 second) 

PCDUYPST = CDU 

7 

YCDUYPST = PCDUYPST 

PCDUZPST = CDU^ (Note that on first pass yaw rates 50^ too big) 

YCDUZPST = PCDUZPST 

Resume 

SWICHOVR Entered from "STABLISH" or "CMDSOUT" 

Inhibit interrupts (released when return to caller) 

PHASETMP = TVCPHASE 
TVCPHASE = -2 

vj 
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YTMPi = 0 (i = 6 - 1) 

PTMPi = 0 (i = 6 - 1) 

Set bit 15(SWT0VER) of FIAGWRD9 = 1 


KTLKdl = C 


ektlxdi 


2 


Perform "S40.15" (starting at second line) 


KPRIMEDT = K 


fkprimdt 


REPFRAC = K, 


frepfrac 
PDELOFF = DELPBAR 

YDELOFF = DELYBAR 

NIO. = K^, 

1 IbnlO. 

1 

TVCPHASE = PHASETMP 


(i = 0 - 14) 


Return 

TVCEXEC Entered first about 0.93 second after "IGNITION" (see "TVCINIT4") 

If bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 f 10^: 

TVCEXPHS = 0 
End of task 

Call "TVCEXEC" in 0.5 seconds 
OGAPAST = OGANOW 
OGANOW = CDU 

X 

AKq = OGAD - OGANOW (ones complement difference formed) 

OGA = - AKq, rescaled to scale factor BO revolutions 
Call "ROLLDAP" in 0.03 seconds 
Perform "NEEDIER " 
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If VCNTR > 0: 

VCNTR = VCNTR - 1, limited ^ +0 (Note lack of restart 

protection) 

Proceed to "ISHOTCHK" 

Perform "FIXCW" (VCNTR was +0) 

Perform "S40.15" 

VCNTR = 19 

Proceed to "ISHOTCHK" 

ISHOTCHK 

If CNTR > 0: 

TS^ = CNTR - 1 
TVCEXPHS = 4 
Proceed to "CNTRCOPY" 

If CNTR < 0: (Tag here "REPCHEK") 

If REPFRA.C 0: (Set —0 in "S40.8" if low thrust) 

TVCEXPHS = 0 
End of task 
TS^ = REPFRAC 
TVCEXPHS = 2 

Proceed to third line of "TEMPSET" 

If bit 7(ENGQNFnj) of FIiAGWRD5 = 0: (CNTR = 0; Tag "ISHOTOK") 

TVCEXPHS = 0 
End of task 


J 
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TVCEXPHS = TVCEKPHS + 1 


(sets to l) 


n 


Proceed to "TEMPSET" 

TEMPSET 

TS^ = K- ^ 

2 fcorfrac 

TVCEKPHS = TVCEXPHS + 1 (sets to 2 ) 

If bit 13 of DAPDATRl = 1: (means LM-off) 

TS 2 = 2 TSg 
TS^ = -1 

TS^ = PDELOFF + TS^ (DELPBAR - PDELOFF)^^ 

TS. = YDELOFF + TS_ (DELYBAR - YDELOFF) 

4 2 'sp 

TVCEXPHS = TVCEXPHS + 1 (sets to 3 ) 

PDELOFF = TS^ 

PACTOFF = TS. 

-^sp 

YDELOFF = TS, 

4 

YACTOFF = TS, 

^sp 

TVCEXPHS = TVCEXPHS + 1 (sets to 4) 

Proceed to "CNTRCOPY" 

CNTRCOPY 

CNTR = TS^ 

TVCEXPHS = 0 

End of task 

PITCHDAP Entered initially due to logic in "DAPINIT"; then 

from "YAWDAP" logic. 

T5K)C = "YAWDAP" 

TIME5 = T5TVCDT 

Set PCDUYPST = CDU and TS = PCDUYPST 

y 

MCDUYDOT = TS - PCDUYPST (ones complement difference formed) 
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MCDUTDOT = 0 

Set PCDUZPST = CDU and TS = PCDUZPST 
z 

MCDUZDOT = TS - PCDUZPST (ones complement difference formed) 
l''urtlm «DUZDOt| >, a-l'*: 

MCDUZDOT = 0 
ERRBTMP = PERRB + OMEGAC 

y 

OMBGAB = - MCDUYDOT COSCDUZ COSCDUX - MCDUZDOT SINCDUX 
ERRBTMP = ERRBTMP - OMEGAB 

y 

If (K^derrim ^ 2"^: 

ERRBTMP = K , sen ERRBTMP 
sp errim ° 

TMPl = PTMPl 
TMP3 = PTMP3 
TMP5 = PTMP5 
Perform "FWDFLTR" 

CMDTMP = PDELOFF + CMDTMP 
Round CMDTMP to single precision 

CMDTMP = K sgn CMDTMP 

SLC L/ S 9.^ 

TVCPITCH = TVCPITCH + CMDTMP - PCMD 

Set bit 11 (Gate output from TVCPITCH) of channel 14 = 1 

TMP2 = PTMP2 

TMP4 = PTMP4 

TMP6 = PTMP6 

Perform "PRECOMP" 

DELBRTMP = K , DELPBAR + K ^ CMDTMP 

emat onemeat 

Perform "PCOPY" 

Resume 
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PCOPY 


TVCPHASE = TVCPHASE + 1 (sets to l) 

PTMPi = TMPi (i = 1 - 6) 

PERRB = ERRBTMP 

AK^ = ERRBTMP 
1 sp 

PCMD = CMDTMP 
DELPBAR = DEEBRTMP 

TVCPHASE = TVCPHASE + 1 (sets to 2) 

Return 

YAWDAP Entered due to "PITCHDAP" logic. 

T5L0C = "PITCHDAP" 

TIME5 = T5TVCDT 

Perform the following for i = Y(or y) and then i = Z (or z): 

Set YCDUiPST = CDU. and TS = YCDUiPST 

1 

MCDUiDOT = TS - YCDUiPST (ones complement difference formed) 

If MCDUiDOTl ^ 

MCDUiDOT = 0 

ERRBTMP = YERRB + OMEGAC 

z 

OMEGAB = MCDUIDOT COSCDUZ SINCDUX - MCDUZDOT COSCDUX 
z 

ERRBTMP = ERRBTMP - OMEGAB 

z 

If |k,, . ERRBTMP 1:^2~^: 

’ Iderrm ' 

ERRBTMP = K . sgn ERRBTMP 
sp errim 

TMPI = YTMPl 
TMP3 = YTMP3 
TMP5 = YTMP5 

Perform "FWDFLTR" U 

CMDTMP = YDELOFF + CMDTMP 
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Round CMDTMP to single precision 

“ I'^ldactsat 

CMDTMP = K sgn CMDTMP 

£LCljS8L L/ 

TVCYAW = TVCYAW + CMDTMP - YCMD 

Set bit 12 (Gate output from TVCYAW) of channel 14 = 1 

TMP2 = YTMP2 

TMP4 = YTMP4 

TMP6 = YTMP6 

Perform "PRECOMP" 

DELBRTMP = K ^ DELYBAR + K ^ CMDTMP 

emat onemeat 

Perform "YCOPY" 

Resume 

YCOPY 

TVCPHASE = TVCPHASE + 1 (sets to 3) 

YTMPi = TMPi (i = 1 - 6) 

YERRB = ERRBTMP 

AK^ = ERRBTMP 
2 sp 

YCMD = CMDTMP 

DELYBAR = DELBRTMP 

TVCPHASE = 0 

Return 

FWDFLTR 

DAPl = NIOq ERRBTMP + TMPI (NIOq is "NIO") 

DAP2 - NIO^ DAPl + TMP3 (NIO^ is "N20") 

5 5 

If bit 14 of DAPDATRl =1: (LM attached) 

DAP3 = NIO^q DAP2 + TMP5 (NIO^q is "N30" ) 

If bit 14 of DAPDATRl =0: (IM off) 

DAP3 = DAP2 (rescaled to scale factor B-3 revolutions) 
CMDTMP = - VARK DAP3 
Return 
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PRECOMP 


TMPl = NIO ERRBTMP - N10„ DAPl + TMP2 (NIO is "Nil" and 

^ ^ NIO^ is "Dll") 

TMP2 = N10„ ERRBTMP - NIO DAPl (NIO^ is "N12" and 

^ NIO^ is "D12") 

TMP3 = NIO^ DAPl - NlOg DAP2 + TMP4 

TMP4 = NIO^ DAPl - NIO^ DAP2 

If bit 13 of DAPDATRl =0: (LM on) 

TMP5 = NIO^ DAP2 - NIO^^ DAP3 + TMP6 

TMP6 = NIO, ^ DAP2 - NIO, , DAP3 

JL^i 14 

Return 

REDOTVC 

If TVCEXPHS >0: 

Call "EXRSTRT" in 0.09 seconds 
If TVCPHASE < 0: 

If bit 2 of TVCPHASE = 1: (i.e. -1, not -2) 

PCMD = PACTOFF 

YCMD = YACTOFF 
If TVCPHASE = 1: 

Perform "PCOPY" (starting at second line) 

If TVCPHASE = 3 : 

Perform "YCOPY" (starting at second line) 

Set bits ll(Disengage Optics DAC) and 8(TVC Enable) of channel 12 
T5L0C = "ENABL2" 

Set TIME 5 to cause program interrupt #2 in O.O 6 seconds 

Resume 

ENABL2 

Set bit 2(Enable Optics CDU Error Counters) of channel 12 = 1 
T5L0C = "CMDSOUT" 

Set TIME5 to cause program interrupt #2 in 0.02 seconds 
Resume 
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CMDSOUT 


TVCPITCH = PCMD - 0 (avoids loading vfith +0) 

TVCYAW = YCMD - 0 (avoids loading vrith +0) 

Set bits 12-11 (Gate outputs from TVCPITCH & TVCYAW) of channel 
14 = 1 

If TVCPHASE <0: 

If ItVCPHASeI - 1 =0: 

Proceed to "TVCDAPON" 

Perform "SWICHOVR" (starting at 4th line) 

Proceed to "TVCINIT4" 

EXRSTRT 

Proceed to appropriate point in "TVCEXEC" routine (just after 

the point where TVCEXPHS was incremented to its present value) 

ROLLDAP Called by "TVCEXEC" every 0.5 second (0.03 second after start 
of "TVCEXEC") 

OGARATE = (OGANOW - OGAPAST) (ones complement difference) 

If |R0LLFIRE|= 0: 

If |TEMREG( / 0: 

TEMREG = 0 
End of task 

TS = - h IdCONACC OGARATE^ 

SGNRT = 1 sgn OGARATE (0 considered negative) 
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DELOGA - OGA - TS SGNRT 


SGNDOG = 1 sgn DELOGA (O considered negative) 

If SGNRT sgn SGNDOG ^ 0 : 

DELOGA - DELOGA + sgn SGNDOG 

DELOGART = - K , sgn SGNDOG 
me rat 

Proceed to "ONROLL" 

If OGAEATE sgn SGNDOG + ^ 0: 

R^TDES = - sgn SGNDOG 

Proceed to ’’ROLLSET” 

TS = (K OGA + OGARATE) sgn SGNDOG - K. ^ 

ms ope intercp 

If TS «$ 0, proceed to "NOROLL" 

If OGARATE sgn SGNDOG + K . . -^0, proceed to "NOROLL" 

“ minxm 

If OGA sgn SGNDOG - ^ 0, proceed to "NOROLL" 

DELOGA = OGA 
DELOGART = OGARATE 
Proceed to "ONROLL" 

ONROLL 

TS, = K IdCONACC DELOGART - I sgn SGNDOG (scaled B4) 

1 msope ° 

TS 9 = K IdCONACC DELOGART^ + K (DELOGA sgn SGNDOG 

^ msope msope ^ 

+ ^crat (scaled BO) 

If iTSpj - 2 “^|tS, I <0: (implemented by division of TSp 

shifted right 14 places by TS, 
RATDES = TSp / TS^ and check of A: the 2”^ comes 

. about from scale factors) 

If lTS2j - 2"^|TSJ:^0: 

RATDES = +MAX sgn (TS^ / TS^) (magnitiadeS 22i°/sec) 
Proceed to "ROLLSET" 
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ROLLSET 


n 


) 



TEMREG = RATDES (same cell) 

TS = RATDES - OGARATE 
If |TS1^ 2 ^ rev/sec: 

TS = (2~^ - 2“^®) sgn TS rev/sec 

TS = ^ ^t6sc modulo 2^^ centi-seconds 

TEMREG = 2 TS 

If ItEMREG I 2^° cent! -seconds : 

TEMREG = (2^° - 2~^) sgn TEMREG centi-secoMs 
If TEMREG = 0: 

Proceed to "NOROLL" 

TS^ = TEMREG ROLLFIRE 

If TS^<i 0, proceed to "NOROLL" 

If |tSJ = 0: 

If ItEMREg) - 0: 

Proceed to "NOROLL" 


If TS^ > 0: 

SGNDOG = 0 (used as flag in "JETROLL") 


If K 


Idtmxfir 


TEMREG I ^ 2~^^: 


TEMREG = K, sgn TEMREG 

tmxfir ® 


ROLLFIRE = +MAX sgn TEMREG 
TEMREG = I TEMREG j 

If SGNDOG / 0, proceed to "JETROLL" 

If (TIME6 - TEMREG) 0, End of task (don't extend burn 

duration) 

Proceed to "JETROLL" 
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NOROLL 


ROLLFIRE = -0 
TEMREG = -0 
Proceed to "JETROLL" 

JETROLL 

T6L0C = "NOROLLl" 

TIME6 = TEMREG 

If SGNDOG = 0: (set in "ROLLSET" to continue present jets) 

End of task 
If ROLLFIRE = 0: 

Set bit 15(TIME6 Comt Enable) of channel 13 = 1 

End of task 

If ROLLFIRE > 0: 

If bit 1 of ROLLWORD = 1: 

Set bit 1 of ROLLWORD = 0 

Channel 6 = K ^ 
pro2 

Set bit 15(TIME6 Count Enable) of channel 13 = 1 
End of task 

Set bit 1 of ROLLWORD = 1 

Channel 6 = K ^ 
prol 

Set bit 15(TIME6 Count Enable) of channel 13 = 1 
End of task 

If bit 2 of ROLLWORD = 1: (ROLLFIRE < O) 

Set bit 2 of ROLLWORD = 0 

Channel 6 = K ^ 
mro2 

Set bit 15(TIME6 Count Enable) of channel 13 = 1 
End of task 
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Set bit 2 of ROLLWORD = 1 


Channel 6 = K ^ 
mrol 

Set bit 15(TIME6 Count Enable) of channel 13 = 1 
End of task 


NOROLLl 

ROLLFIRE = +0 
Channel 6=0 
Resume 


) 


U 
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Quantities in Computations 

See also list of major variables and list of routines 


IdCONACC: See Digital Autopilot Interface Routines. 

AKq, AK^, AK^: See Digital Autopilot Interface Routines. 

C , . : Single precision erasable memory constant, program notation 

e prxraeQ ^ scale factor B- 5 , imits ( re volut ions/cent i-second)/ 

radian, giving the "steer law gain" for LM-off (used in "TVCINITl" 
to initialize KPRIMEDT for "S 40 . 8 "). The maximim value that can be 
stored in the cell is (100 x 21T x 2 ~ 5 ) = (lOOTT /l6) radians/sec per 
radian, where "maximum value" actually is one least increment more 
than 37777g. 

*^ekr)rime " precision erasable memory constant, program notation 

1 "EKFRIME + 1 ", scale factor B- 5 , units (revolutions/centi-second)/ 

radian, giving the "steer law gain" set in "TVCINITl" for LM-on (see 

C , . and K„, , , , ) . 

ekprirnsQ f kpruidt 

C kti-vdi • precision erasable memory constant, program notation 

0 "EKTLX/I", used in "TVCINITl" to initialize KTLXdl for "S 40 . 15 ", 
for the LM-off configuration. Scale factor is B 4 , units ASCREV/sec^, 
where one ASCREV = 1.07975111 revolutions (see K ). To convert 

to memory information, value in imits of (l/sec^f^ should be divided by 
(1.07975111 X 2^), giving a fraction which in turn is placed in the 
cell. Alternatively, cell could be considered scaled BI8 in units of 
CDU actuator piases per revolution times (newton-meters/kg-meters^) , 
where second term compensates for the multiplication by IAVG/TLX (and 
reduces to l/sec^, of course). There are 2^^ actuator pulses in 
1.07975111 revolutions. 


^ektlxdi 


Single precision erasable memory constant, program notation 
1 "EKTLX/I +1", used in "TVCINITl" to initialize KTIXdl for 
"S4O.I5" fgr LM on (see also ). Scale factor is B 2 , units 


ASCREV/sec"^ ( see C 


ektlxdi 


). 


"'ektlxdi^ 


0 


“'ektlxdi 


Single precision erasable memory constant, program notation 
'2 "EKTLK/I + 2 ", used in "SWICHOVR" to initialize KTLKdl for 
"S4O.15" fgr "low bandwidth" LM on. Scale factor is B 2 , units 


ASCREV/sec^ (see C 


ektlxdi 


). 


“0 
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erecfrac ' Single precision erasable memory constant, program notation 
0 "EREPFRAC", scale factor B2, used as LM-off Initialization 
for REPFRAG in "TVCINITl" and "S 4 O. 8 " (note that TS^, i.e. 

REPFRAC , is doubled in "TEMPSET" if LM— off, hence effective "system" 
scale factor is EE3 ) . 


^erenfrac ' precision erasable memory constant, program notation 

1 "EREPFRAC +1", scale factor B2, used as LM-on initialization 

for REPFRAC in "TVCINITl" and "S 4 O. 8 ". See also ^ 

frepfrac 

^hbnlO (i = 0 “ 14): Set of single precision erasable memory constants 
i used in "TVCINITl" to initialize NIO. for LM-on (if "SWICHOVR" 


entered, NIO. loaded with K 


IbnlO. 

1 


instead) . 


i 

Notation 

Scale : 

0 

"HBNIO" 

BO 

1 

"HBNll/2" 

B1 

2 

"HBN12" 

BO 

3 

"HBDll/2" 

B1 

4 

"HBD12" 

BO 

5 

"HBN20" 

BO 

6 

"HBN 21 / 2 " 

B1 

7 

"HBN22" 

BO 

8 

"HBD21/2" 

B1 

9 

"HBD 22 " 

BO 

10 

"HBN 3 O" 

BO 

11 

"HBN 31 / 2 " 

B1 

12 

"HBN32" 

BO 

13 

"HBD 31 / 2 " 

B1 

14 

"HBD32" 

BO 


CMDTMP: Value of required output information computed initially in "FWDFLTR" 
double precision, and subsequently rounded to single precision in 
"PITCHDAP" or "YAWDAP", scale factor BO, units ASCREV (or BI 4 in \mits 
of actuator pulses): VARK converts from units of revolutions in "FWDFLTR". 

CNTR: Single precision counter, scale factor BI 4 , units counts (of 5 
second each), preset in "TVCINITl" and decremented in "ISHOTCHK" . 

When reduced to 0, the next entrance to "TVCEKEC" causes a "one-shot" 
correction to PACTOFF and YACTOFF (as well as PDELOFF and YDELOFF), 
using K „ . CNTR is set to +MAX in "S40.81"when the cutoff 

decision IS miSe, to inhibit further trim updates after that time 
(a value of -1 is set in "TEMPSET"/"CNTRCOFY" to signify that the 
one-shot correction has been made). Since K (initial condition 

for LM-on of CNTR) is zero, no decrementing or 1 CNTR is required 
for that configuration. 


COSCDUX, COSCDUZ: See Coordinate Transformations. Updated once a second 
while "CLOCKJOB" is entered, which includes period of time when 
TVC DAP is on. 
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DAPl, DAP2, DAP3: Filter quantities computed in "FWDFLTR", scale factor 
B-1, units revolutions. If IM off, then DAP3 is set equal to DAP2 
(otherwise, it is derived), scaled B-3. 

DAPDATRl: See Digital Autopilot Interface Routines. 

DELBRTMP: Double precision erasable memory cell used to contained the 
updated value for DELPBAR or DELYBAR (for restart protection 
piirposes), scale factor B14, units CDU actioator output pulses 
(or scale factor BO in ASCRE7 units). 

DELOGA: Single precision value of roll attitude error used in "ONROLL", 
scale factor BO, units revolutions (computed Initially in "ROLLDAP" 
as "distance from switch parabola" ) . 

DELOGART: Single precision valiie of roll attitiide rate error used in 
"ONROLL", scale factor B-4, units revolutions/second. 

DELPBAR: Double precision value of estimated "c.g. offset relative to 

electrical null" in pitch, scale factor BI 4 in units of CDU actuator 
pulses (or scale factor BO in ASCREV units). Initialized to PACTOFF 
in "TVCINITl" and u^ated in "PCOPY" with DELBRTMP (for restart 
protection purposes). After CNTR reduced to zero, used in "TEMPSET" 
to updated PDELOFF and PACTOFF (using K and then REPFRAC for 

weighting). Used in "SPSOFF" to load pj^Q^opF if suitable 

initialization completed (i.e. "TVCINITl" completed, initializing 
DELPBAR), and no thrust failure. 

DELYBAR: Double precision value of estimated "c.g. offset relative to 
electrical null" in yaw, scale factor BI 4 , units CDU actuator 
output pulses (or scale factor BO in ASCREV units). See DELPBAR 
(substitute yaw axis for pitch axis). 

ERRBTMP: Value of pitch or yaw error in body coordinates, scale factor 

B-l, units revolutions, limited to K . . Could also be considered 
^ ^ ©x'nin 

to be the "integral of body-axis rate error" . Value is displayed on 

FDAI error needles (due to loading of AK^ or AK^ by appropriate 

copy routine). Loaded in "IGNITION" with RCS DAP pitch and yaw negative 

(single precision) error information for use in "TVCINITl", after 

limiting, to initialize PERRB and YERRB for LM-off. 


^Idactsat" Single precision constant, program notation "l/ACTSAT", 
scale factor BO, octal value OOlOlg, corresponding to 
0 . 003967285 * Effect in equations such as to cause an answer of 
one least increment { 2 ~^ in programmed equations) for an argument 
of 253 least increments or more (see K^^ctsat^* 


K 


Idattlim' precision constant, program notation "l/ATTLIM", scale 

factor BO, octal value OOiyOg. Effect in equations such as to 

cause an answer of one least increment (2“14 in programmed equations) 

for an argument of I 37 least increments (at B-l rev., about 1.505°): 

see K , . T . . 
attlim 


Kiderrim* Single precision constant, program notation "l/ERRLIM", 
scale factor BO, octal value 00004g. Effect in equations 
such as to cause an answer of one least increment ( 2 “^ in 
programmed equations) for an argument of 2 “^ or more 
(see the 2 ~^ would correspond to 2“3 revolutions. 
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^Idrtim' precision constant, program notation "l/RTLIM", scale 

factor BO, octal value 00il5g. Effect in equations such as to 
cause an answer of one least increment (2“^ in programmed equations) 
for an argument of 213 least increments (at B-1 rev., about 2.34°). 

^Idtmxfir" Single precision constant, program notation "l/TMXFIR”, 
scale factor BO, octal value 00004o. Effect in equations 
such as to cause an answer of one least increment (2“^ in 
programmed equations) for an argument of 2 ~^ or more (see 
^traxfir)* the 2 ~^ would correspond to 2.56 seconds. 

\csd2'„?^®^°.P^°°^®^°’^ constant, program notation "BIT2", scale factor 
B14, units centi-seconds, giving the required time interval 
betwee^DAP computations for different axes for LM-off. Value is 
2x2 , corresponding to 2 centi-seconds: this gives a time 

interval of 4 centi-seconds from one pitch axis solution to the 
next. 

^8csd2iTf^"®^? precision constant, program notation "BIT3", scale factor 
units centi-seconds, giving the required time interval between 
DAP computations for different axes for LM-on. Value is 4 x 2“14 
corresponding to 4 centi-seconds: this gives a time interval of s’ 
centi-seconds from one pitch axis solution to the next. 

Kactsat* Single precision constant, program notation "ACTSAT", scale 

factor B14, units CDU actuator output pulses (one pulse is 85. 41 
seconds). Value is 253 x 2“^, corresponding to about 6.0024°. 

Note that 2^^ CDU actuator output pulses correspond to about 
1.07975111 revolutions; there are about 42.14963 pulses/degree. 

. precision constant, program notation "ATTLIM", scale factor 
_ B 1, umts revolutions. Value is I 36 least increments (see 
^Idattlim^’ °^ octal 00210^, corresponding to about 1.494°. 

K nQ (i = 0 - 14 ): Set of single precision constants used in "TVCINITl" 
i to initialize NIO. for LM-off, program notation (i = O) "CSMNIO" . 
Only values for i = 0^- 9 are significant (since NIO,^ to NIO,. are 
employed only for LM-on); values for i = 10 - 14 are'^the same'^ells 

as V T to En T . 

IbnlOQ 


i 

Nominal Value 

Scale Factor Nominal 

True Value Stored 

0 

0.99999 

BO 

0.99999 

(NIO) 

0.99994 

1 

- 0.2549 

B1 

-O. 509 B 

(Nil) 

- 0.50977 

2 

0.0588 

BO 

0.0588 

(N12) 

0.05878 

3 

- 0.7620 

B1 

- 1.524 

(Dll) 

- 1.52405 

4 

0.7450 

BO 

0.7450 

(D12) 

0.74500 

5 

0.99999 

BO 

0.99999 

(N20) 

0.99994 

6 

-O. 4 B 52 

B1 

- 0.9704 

(N21) 

- 0.97046 

7 

0.0 

BO 

0.0 

(N22) 

0.0 

8 

- 0.2692 

B1 

-0.53S4 

(D21) 

- 0.53845 

9 

0.0 

BO 

0.0 

(D22) 

0.0 

The 

"nominal value" is 

the scaled 

decimal input 

to the 

assembly 


program; the "stored" value was obtained by converting the octal 
memory information to decimal and applying the proper scale factor. 
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Single precision constant, program notation "DB", scale factor 
BO, units revolutions, giving roll deadband for TVC DAP. Octal 
value is 00344gj corresponding to about 5 •0098°* 

K Single precision constant, program notation "E(-AT)", scale 

factor BO, value 37535 q, corresponding to (l - . 

K . : Single precision constant, program notation "ERRLIM", scale 
errim units revolutions. Value is lOOOOg, corresponding 

to 2“^ revolutions or 45°. 


K 


f corf rac ‘ 


Single precision constant, program notation "FCORFRAC", scale 


factor B2. Used in "TEMPSET" as the IM-on c.g. one-shot 
correction gain (see CNTR above). A value of 2 is used for 

LM-off (hence scale factor coiild be considered B3 for the LM-off 
application). Value is octal lOOOOg, corresponding to 1.0 x 2 ~^, 
where first term is eqixation value and second is scale factor. 

^fkprimdt" precision constant, program notation "FKPRIMDT", scale 

factor B-4, units (re volutions /DAP cycle) per radian. Used in 
"SWICHOVR" to load KPRIMEDT. Value is 0.0102, corresponding approx- 
imately to 0.05 X 0.08 X (1/277" ) X 2^, where first term is value of 
gain in (radians/sec )/radian, second is DAP cycle rate in seconds, third 
is conversion to revolutions, and 4th is scale factor: see KPRIMEDT. 

K„ „ : Single precision constant, program notation "FREPFRAC", scale 

irepirac 33, used in "SWICHOVR" and "S4O.8" to load REPFRAC 

for "low-bandwidth" mode of TVC DAP. Nominal value is 0.0375 x 2“^, 
where first term is equation value and second is scale factor. The 
actual stored value corresponds to about 0.0376. 


K, : Single precision constant, program notation "INTERCEP", scale 

in ercp B-3, units revolutions. Octal value is 00510^, corres- 

ponding to about 0.2002 x 45 = 0.9009°. 

^IbnlO. 7 9 7 single precision constants used in "SWICHOVR" 

60^ initialize NIO^ for "low bandwidth" LM-on, program notation 


0 

1 

2 

3 

4 


Nominal Value 

Scale Factor 

Nominal 

True Value 

Stored 

0.99999 

BO 

0.99999 

(NIO) 

0.99994 

-0.3285 

B1 

-0.6570 

(Nil) 

-0.65698 

-0.3301 

BO 

-0.3301 

(N12) 

-O.33OO8 

-0.9101 

B1 

-1.8202 

(Dll) 

-1.82019 

0.8460 

BO 

0.8460 

(D12) 

0.84601 


) 
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i 

Nominal Value 

Scale Factor 

Nominal 

True Value 

Stored 

5 

0.03125 

BO 

0.03125 

(N20) 

0.03125 

6 

0.0 

B1 

0.0 

(N21) 

0.0 

7 

0.0 

BO 

0.0 

(N22) 

0.0 

8 

-0.9101 

B1 

-1.8202 

(D21) 

-1.82019 

9 

0.8460 

BO 

0.8460 

(D22) 

0.84601 

10 

0.5000 

BO 

0.5000 

(N30) 

0.50000 

11 

-0.47115 

B1 

-0.9423 

(N31) 

-0.94226 

12 

0.4749 

BO 

0.4749 

(N32) 

0.47491 

13 

-0.9558 

B1 

-1.9116 

(D31) 

-1.91162 

14 

0.9372 

BO 

0.9372 

(D32) 

0.93719 


See note with K . 

csmnlO. 

1 

^maxitn" precision constant, program notation "MAXLIM", scale 

factor B-4, units revolutions/second. Value is O.OI3B8889 x 2^, 
corresponding to about 5 degrees/second. 

\crat' ^^S^® Pi’ecision constant, program notation "LMCRATE", scale 
factor B-4, units revolutions/second (gives limit cycle roll 
rate for TVC roll DAP) . Value is 00111-, corresponding to about 
0.10025 degree/second. ° 

^minim; ^^S^® Precision constant, program notation "MINLIM", scale 

factor B-4, units revolutions/second. Value is 0.00277778 x 2^ 
corresponding to about 1 degree/second. ^ 


^mrol’ precision constant, program notation "-R0LL1", octal 

value 00012g, corresponding to channel 6 roll jets #10 and #12 
giving a SM negative roll using quad B/D. ’ 


^mro2‘ ^^S^® precision constant, program notation "-R0LL2", octal 
value 0024(^, corresponding to channel 6 roll jets #14 and #16 
giving a SM°negative roll using quad A/C. 


Kjjjgope* Single precision constant, program notation "-SLOPE", scale 
factor BO, units (revolutions/second)/revolution. Value is 0 . 2 . 
Notation arises from fact that "true" slope is negative (an 
increasing attitude error results in a decreasing attitude rate). 


^onemeat" Single precision constant, program notation "l-E(-AT)", 
scale factor BO, octal value 00243 g" Value corresponds 
to 163/16384, or approximately 0.01, equivalent to the 
first term in the series expansion of (l - e~®'^) for at = 0.01. 


O 
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^prol" Single precision constant, program notation "+R0LL1", octal 
value 00005g, corresponding to channel 6 roll jets #11 and #9, 
giving a + Roll (for SM). Uses Quad B/D. 

K 2* Single precision constant, program notation "+R0LL2", octal 
P value 00120rt, corresponding to channel 6 roll jets #15 and #13, 
giving a + Roll (for SM). Uses Quad A/C. 

Single precision constant, program notation "BIT5", scale factor 
Bll, value 2“^^^ corresponding to 2 x 2“^^, where first term is 
conversion of rate to units of revolutions/second, and second 
is scale factor. 

^t6sc' precision constant, program notation "T6SGALE'' scale 

factor B7, value 31000^. Value corresponds to 100 x 2~', where 
first term converts from seconds to centi-seconds and second 
is scale factor. 

K, : Single precision constant, program notation "TCORR", scale factor 

B14, units counts (used as a preset for CNTR in "TVCINITl" for LM-off). 
Value is 5 X 2~^, meaning that the "single-shot" correction will take 
place the 6th time that "TVCEXEC" is entered, or about 3*43 seconds 
after "IGNITION" is done. 

K. : Single precision constant, program notation "TCORR +1", scale 

corrifactor B14, units counts (used as a preset for CNTR in "TVCINITl" 
for IM-on) . Value is 0, meaning that the "single-shot" correction 
will take place the first time that "TVCEXEC" is entered, or about 
0.93 seconds after "IGNITION" is done. 

^tminfr' precision constant, program notation "TMINFIRE", 

^scale factor BIO, units centi-seconds. Value is 00030^, 
corresponding to 1.5 centi-seconds (i.e. 15 milliseconds;. 

K. : Single precision constant, program notation "TMAXFIRE", 

scale factor BIO, units centi-seconds. Value is 250 x 2“^^, 
corresponding to 250 centi-seconds (i.e. 2.5 seconds). See 

^Idtmxfir* 

KPRIMEDT: Quantity used in "S40.8" to convert guidance attitude error 
information into OMEGAC. Scale factor is B-4, units (revolutions/ 

DAP cycle) per radian. Loaded in "TVCINITl" and "SWICHOVR". Least 
significant half expected to be 0 (from "TVCINITl" loading method). 

KTLXdl: Single precision value of appropriate C cell, loaded in 

"TVCINITl" or "SWICHOVR" and used in "S40.!f^. Scale factor is 
B4 (LM off) or B2 (LM on), program notation "KTLX/l" . 
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MCDUYDOT, MCDUZDOT: Complement of change in CDU and CDU respectively 
since previous sample, scale factor B-1, \jSits revoiutions/DAP 
cycle (in general). Computed in "PITCHDAP" and "YAWDAP" based 
on separate CDU angle samples, and used to compute appropriate 
component of OMEGAB. If the magnitude exceeds about 2.33°, it 
is set 0 (see K, , , . ). The DAP cycle is 40 ms for LM-off ard 
80 ms for LM-on. uuie to initialization in "DAPINIT", the rate 
derived the first pass through "YAWDAP" will be 50^ too big. 

NIO (i = 0 - 14) : Set of filter constants loaded in "TVCINITl" with 

■'osmlO or or- In "SWICHOVR" with . 

For LM^off, parameters for^i =10-14 are not used. Scale factors 
for i = 1, 3; 6, 8; and 11, 13 are Bl, with remainder of constants 
(all single precision) having scale factor BO. 

OGA: Single precision value of roll error (OGANOW - OGAD), scale factor 
BO, units revolutions, computed in "TVCEXEC" . Program notation 
where computed is "OGAERR" . 

OGAD: Single precision value of desired outer gimbal angle (i.e. CDU ), 
scale factor B-1, units revolutions, set to CDU in "IGNITION" ^ 

(when SPS engine is turned on) . Used to cause ^he roll TVC DAP 
to maintain "roll attitude hold". 

OGANOW: Single precision value of CDU , scale factor B-1, units 
revolutions, sampled in "TVCINIT^" and "TVCEXEC". 

OGAPAST: Previous value of OGANOW, scale factor B-1, units revolutions, 
loaded with previous value of OGANOW in "TVCEXEC" . 

OGARATE: Single precision value of rate of change of OGANOW computed at 
the start of "ROLLDAP", scale factor B-4, \mits revolutions/second. 

Will be about 2% too big the evaluation after "TVCINIT4" is performed 
(since delay between successive samples then is O. 5 I seconds, not 
0.50 seconds). 

OMEGAg: Value of body rate determined from first difference of CDU and CDU 
information, scale factor B— 1, units revolutions/DAP cycle (cofSputed ^ 
double precision). The y component is loaded in "PITCHDAP" and 
the z component in "YAWDAP", program notations "OMEGAYB" and 
"OMEGAZB" respectively. The "x" component is used for the storage 
of OGARATE (single precision), and is assigned that tag. The cells 
used for OMEGAB are used in the RCS DAP for ADOT (a common cell 
assignment is made for telemetry considerations). Note that "x" 
component is B-4 rev/second, not B-1 rev/DAP cycle, and single precision. 

OMEGAC: Value of guidance steering output computed in "S 4 O. 8 ", scale 
factor B-1, units revolutions/DAP cycle (see KPRIMEDT). The 
X component is not used; the y component is used in "PITCHDAP"; 
and the z component is used in "YAWDAP". 
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PACTOFF: Single precision value of pitch c.g. offset, scale factor 

BI 4 , units CDU actiaator pulses (one pulse is S 5 . 4 I seconds). Co\ild 
also be considered scaled BO in units of ASCREV (see C , ). 

Can be loaded by R1 of N4S (e.g. in RO 3 ). It is measured ^0 
"relative to electrical null" specified by K , . (see Steering 
Computations). Quantity also called "total ^ttcS trim angle." 

It is used in "TVCINITl" to initialize filter quantities in 
TVC DAP, and is updated in "TEMPSET" after the one-shot has taken 
place (CNTR reduced to O) . Can also be updated in "SPSOFF" (see 
DELPBAR). 

PCDUYPST, PCDUZPST: Previous values of CDU and CDU for use in deriving 
MCDUYDOT and MCDUZDOT for pitch DAP, Single precision with scale 
factor B-1, units revolutions, in twos complement. Separate cells 
are used for yaw DAP (see YCDUYPST). PCDUiPST cells are initialized 
in "DAPINIT", with "PITCHDAP" entered at a time corresponding to 
one complete DAP cycle (pitch and yaw) later, giving proper first- 
difference computation. 

PCMD: Single precision value of previo\as pitch output command information, 
scale factor BI 4 , units CDU actuator pulses (or BO in units of 
ASCREV). It is intended to maintain an image of the information 
in the optics error counter driven from TVCPITCH output. It is 
set to PACTOFF in "TVCINITl" ("S 4 O. 6 " left engine bell at that 
position), and updated in "PCOPY" with CMDTMP. 

PDELOFF: Value of pitch c.g. offset, scale factor BI 4 , units CDU 

actuator pulses (or BO in units of ASCREV). The quantity is a 
double precision version of PACTOFF (updated in "TEMPSET" and 
initialized to PACTOFF in "TVCINITl") used to minimize the effect 
of computer word length. 

PERRB: Value of pitch error in body coordinates, loaded in "PCOPY" with 
EEffiBTMP (which in turn is sum of previous PERRB and (OMEGAC - 
OMBGAB )), scale factor B-1, units revolutions. Could also^be 
considl^red to be the "integral of body-axis pitch-rate error", 
since the OMEGAi terms are in units of revolutions/DAP cycle. 

y 

PHASETMP: Single precision cell used in "SWICHOVR" to retain the value 

of TVCPHASE until the computation is complete, to permit setting of 
TVCPHASE = -2 as an indication to restart logic ("REDOTVC" and 
"CMDSOUT") that "SWICHOVR" was being performed. 

PTMPi (i = 1 - 6): Valiies of pitch filtered information, initialized to 
0 in "TVCDAPON" and "SWICHOVR", and loaded with TMPi in "PCOPY". 

Scale factors are. all B-1, units revolutions. 

RATDES: Single precision value of desired roll rate used in "ROLLSET", 
scale factor B-4, units revolutions/second. Program uses TEMRBG 
cell. 

RCSFLAGS: See Digital Autopilot Interface Routines. 
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REPFRAC: Single precision value of "repetitive c.g. correction fraction", 
scale factor B2, used in "ISHOTCHK" to control update of the c.g. 
tracker (if REPFRAC 0 or negative, no update is done) after CNTR 
becomes 0. It is initialized in "TVCINITl" to appropriate C 


and (for "long" burns) is loaded in "S4O.8" with the same 
information. If "SWICHOVR" entered, loaded with ^ 
is set to -0 if thrust below minimum value, to inhibi' 


erepfrac 


In 
lates . 


'S40.8", 


ROLLFIRE: Single precision cell, scale factor BO, set to +MAX for 
positive roll torque and -MAX for negative roll torque in roll 
TVC DAP. It is initialized to 0 in "TVCDAPON" and when roll jets 
are turned off in "NOROLL" or "NOROLLl", and used as a control 
cell to indicate that roll jet firings have been specified (used 
at start of "ROLLDAP", with TEMREG, to force at least ^ second of 
no firing between successive firings). 


ROLLWORD: Single precision cell initialized to 0 in "TVCDAPON" and 

used to permit alternation of the pairs of jets (i.e. quads) used 
for torque in the TVC roll DAP. Bit 1 is used for positive roll 
commands and bit 2 for negative roll commands: quad B/D is used 
if the bit is now 0 and quad A/C if bit is now 1. The bit used 
for selection is complemented after being used. 

SGNDOG: Cell giving sign information for DELOGA (implemented in program 
by loading a "clear add" order for positive and a "clear subtract" 
order for negative), program notation "I". It is set 0 in 
"ROLLSET" if the polarity of the present jet firing is the same 
as that of desired firing during this evaluation, in order to 
flag the fact that present jets should be continued (subsequent 
evaluations can reduce the required roll firing time, but not 
increase it, due to logic at end of "ROLLSET"). 


SGNRT: Single precision cell, scale factor BI4, giving information on 
the polarity of OGARATE. 

SINCDUX: See Coordinate Transformations (and COSCDUX) . 

T5LOC: See Digital Autopilot Interface Routines. 

T5TVCDT: Single precision value of required setting for TIME5, scale 

factor BI4, units centi-seconds. TIME5 is incremented by hardware 
means once each centi-second, and when it reaches I6384 (2^), 
program interrupt ^2 is generated. Consequently, to cause program 
interrupt #2 in 2 centi-seconds from "now", TIME5 is set to I6384 - 
2 = 16382} in 4 centi-seconds requires I638O; etc. 

T6L0C: See Digital Autopilot Interface Routines. 

TEMREG: Single precision cell used for several functions within TVC roll 
DAP, but left at end with value of time loaded into TIME6, scale 
factor BIO, units centi-seconds. It is preset to 0 in "TVCDAPON", 
and used with ROLLFIRE at the start of "ROLLDAP" to force at least 
^ second of no firing between successive firings. 
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TIME5: See Digital Autopilot Interface Routines. 

TIME6: See Digital Autopilot Interface Routines. 

TMPi (i = 1 - 6): Set of cells used to retain PTMPi or YTMPi information, 
scale factor B-1, units revolutions, in order to achieve restart 
protection and allow use of the coranion subroutines "FWDFLTR" and 
"PRECOMP". All cells double precision. 

TTMPl: Double precision cell used for intermediate storage of quantities 
in TVC DAP (not shown in programmed eqixations), set 0 in "TVCDAPON" 

(no functional purpose served by the zeroing) . 

TVCDUMMI: Single precision cell set 0 in "TVCDAPON", but not otherwise 
referenced by TVC DAP (cell formerly assigned to a stroking-test 
variable, and employed for erasable memory layout considerations). 

TVCEXPHS: Single precision cell, scale factor B14, used to control the 
restart logic associated vrith the TVC DAP for the waitlist task 
started every half second at "TVCEKEC". It is initialized to 0 
in "IGNITION" and at the end of each performance of the "TVCEXEC" 
task. If it is non-zero when "REDOTVC" is entered, it is used as 
an indexing parameter to select the appropriate address within the 
"TVCEKEC" package in "EKRSTRT" . For clarity, these addresses are 
not shown in the programmed equations, but correspond to the line 
following the one which incremented TVCEKPHS to its present value. 

TVCPHASE: Single precision cell, scale factor B14, used to control the ) 

restart logic associated with the TVC DAP for the initialization, 
switchover to low bandwidth (LM-on), pitch copy cycle, and yaw 
copy cycle (values -1, -2, +1, and +3 respectively). Set to -1 in 
"IGNITION" and to 0 at the start of "TVCINIT4", to control branching 
in "REDOTVC". If "SWICHOVR" entered, set to —2, after the present 
value saved in PHASETMP. The . appropriate "PCOFI"/"YCOPY" routine 
sets to control the pitch/yaw copy cycle restart logic. 


TVCPITCH, TVCYAW: See Digital Autopilot Interface Routines. 

VARK: Single precision variable gain for TVC pitch and yaw channels, scale 
factor B4 (IM off) or B2 (LM on), units ASCREV/revolution (or 
B18/B16 in units of CDU actuator pulses/ revolution) . It is computed 
in "S40.15" and used in "FWDFLTR". 

VCNTR: Single precision cell, scale factor B14, used for control of the 

"TVCEXEC" computations. It is normally employed to cause an update of 
DAP parameters (due to mass change computed every 2 seconds in "S40.8") 
every 20 entrances to "TVCEXEC" (i.e. every 10 seconds). Since the 
modifications to the counter are not restart protected, however, a 
restart in a small interval could cause another modification to the 
counter (modifying the period, although this should not be a problem). 
The cell is preset to 19 in "TVCINITl" and in "TVCEXEC" after updating 
parameters (when cell reaches +0) . 
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YACTOFF: Single precision value of yaw c.g. offset, scale factor BI4, 
units CDU actuator pulses (or scale BO in ASCREV). It is measured 
"relative to electrical null" specified by K (see Steering 

Computations). See PACTOFF above (updated a? analogous times 
to those for PACTOFF, but of course with yaw parameters). 

YCDUYPST, YCDUZPST: Previous values of CDU and CDU for use in deriving 
MCDUYDOT and MCDUZDOT for ysiw DAP, si^igle precision with scale 
factor B-1, units revolutions, in twos complement. Separate cells 
are used for pitch DAP (see PCDUYPST). YCDUiPST cells are initialized 
in "DAPINIT", but "YAWDAP" is entered for the first time at a time 
corresponding to 1.5 complete DAP cycles (i.e. pitch and yaw, plus 
pitch), giving a derived rate for this first pass (at DAP turn-on 
or after a restart) that is 50 % too big. 

YCMD: Single precision value of previous yaw output command information, 
scale factor BI4, units CDU actuator pulses (or BO in units of 
ASCREV). See PCMD. 

YDELOFF: Value of yaw c.g. offset, scale factor BI4, imits CDU 

actuator pulses (or BO in units of ASCREV). Quantity is a double 
precision version of YACTOFF (cf. PDELOFF) . 

YERRB: Value of yaw error in body coordinates, loaded in ’YCOPY" with 
ERRBTMP (which in turn is sum of previous YERRB and (OMEGAC - 
OMBGAB^)), scale factor B-1, units revolutions (cf. PERRB).^ 

YTMPi (i = 1 - 6): Values of yaw filtered information, initialized to 
0 in ’’TVCDAPON" and ''SWICHOVR” , and loaded with TMPi in ”YCOFY” . 

Scale factors are all B-1, units revolutions. 
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Entry Computations 


CM/POSE (Entered by setting AVEGEXIT = "CM/POSE" in '’P62") 

“ >Wsc T + K^e (fiunitw * 

UXA = unit( mVREL) 

TS = - unit( UXA UNITE) 

If HeELI^p - ^ 0: 

TS = OLDUYA 
UYA = TS 
OLDUYA = UYA 
UZA = - UYA * UXA 

TS = (AOGdPIP, AIGdPIP, AMGdPIP), converted to ones complement 

double precision 

UBY = (- cos TSjj. cos TS^ sin TS^ + sin TS^ sin TS^, 

cos TS^ cos TS^, 

cos TS^ sin TS^ sin TS^ + sin TS^ cos TS^) [reFSMMA^ 
UBX = ( cos TSy cos TS^, sin TS^, - sin TS^ cos TS^.) [eEFSMMA'^ 
UBZ = UBX * UBY 
TS]^ = unit( UXA * UBY) 

COSTH = TS^ • UZA 
SINTH = TS3_ • UYA 
Perform "ARCTRIG" 

TS^ = THETAgp (- roll angle). 

TSy. = ^sin“l (UBY • UXA)]^^ (- beta angle) 

SINTH = UBX • TS^ 

COSTH = TS^ • UBZ 
Perform "ARCTRIG" 

TS^ = THETA^p (- alfa angle) 
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TS 2 = GAMA 

GAMA =-^cos-l (UNITE • UZA)) 

Inhibit interrupts 

If bit ll(GAMDIFSW) of FLAGWRD 6 = 1: 

GAMDOT = (GAMA - TS 2 ) 

If |gAMDOT 1 - Kg^ <0: 

GAMDOT = 0 

If bit ll(GAMDIFSW) of FLAGWRD 6 - 0: 

Set bit Il(GAMDIFSW) of FLAGWRD 6 - 1 
GAMDOT = 0 

TSo = - TS^, in range ±180° 

ROLLdlSO = TS^ - ROLLdPIP + ROLLdlSO, in range ± 180° 

TS^ = - TSg, in range i 180° 

ALFAdl80 = TS, - ALFAdPIP + ALFAdl80, in range ± 180° 

BETAdl80 = - TS - BETAdPIP + BETAdl80 (no overflow checks) 

d 

Release interrupts 
VMAGI = jl( 

Proceed to address specified by POSEXIT 

STARTEtJT (Entered by setting POSEXIT = "STARTENT” in "P 63 ") 

Set bits 9(RELVELSW), 8(BGSW), 7(N0SWITCH), 6(HIND), 5(INRLSW), 
and 3(05GSW) of FLAGWRD6 = 0 

Set bits 13(ENTRYDSP), IO(GONEPAST) , and 4(LATSW) of FLAGWRD6 = 1 


LOD = C 


odpad 

LAD = C , , 

adpad 

LdDCMINR = K 


csl5p2 


LAD 


KLAT = K , LAD 
atspe 

FACTOR = (1 - 2“^^) 


LdD = - LAD sgn HEADSUP 
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Perform "STARTENl" 


LATANG = (iinit(V * UNITE)) • R 
K2R0LL = - 1 sgn LATANG 




sp 


Q2 = K^21^° + K^22 

GOTOADDR = "INITROLL" 
POSEXIT = "SCALEPOP" 
Proceed to "SERVEXIT" 


(+0 is +, -0 is -) 


STARTENl Entered from "STARTENT" and "NEWRNVN" 

GOTOADDR = Return address 
Set bit 13(ERADC0MP) of FLAGWRDl = 0 
Set bit 12(LUNIATL0) of FLAGWRD3 = 0 
LAT = LATSPL 
LONG = LNGSPL 
ALT = DELVLVC 

X 

ALT = 0 

TIMEdRTO == Tppt^ 

TS = TIMEdRTO 


Perform "LALOTORV" 


= unitALPHAV 

DTEAROT = %00sec 
Perform "EARROTl" 

THETAH = cos“l (R^ • UNITE) 

Proceed to address specified by GOTOADDR 

SCALEPOP Entered due to setting of POSEXIT in "STARTENT" 

Perform "TARGETNG" 

Proceed to address specified by GOTOADDR 
TARGETNG 

If bit 9(RELVELSW) of FLAGWRD6 = 0: 



If bit 9(RELVELSW) of FLAGWRD6 = 1: 

VEL = - mVREL 
UNITV = unitVEL 

r\ 

VSQUARE = jVELj 
LEQ = VSQUARE - 1 
NV = (VEL( 

ROOT = VEL • UNITE 

^ ~ ^kasc 1 > limited ^ (limit effective only if 

. s D+ = 0)- 

UNI = unit( VEL UNITE) tp 

If bit 9(RELVELSW) of FLAGWED6 = 1: 

TS - 0 

If bit 9(RELVELSW) of FLAGWED6 = 0; 

D == D + D( EDOT / K^hsca + D / NV ) 

If bit 8(EGSW) of FLAGWRD6 = 0: ) 

TS - K, , ^ THETAH 
Kteta 

If bit 8(EGSW) of FLAGWED6 = 1: 

If NV - K . <0: 

vmin 

Set bit 9(RELVELSW) of FLAGWED6 = 1 
TS = THETAH / NV 

DTEAEOT = TS + - TIMEdETO 

Perform "EAEE0T2'' 

LATANG - -UNI 

Set bit 8(G0NEBYTG) of FUGWED? = 0 

If (E^. UNITE) • UNI < 0 , set bit 8(G0NEBYTG) of FLAGWRD? = 1 

“"u 

TS = ^ • UNITE 
If TS - Kj^q < 0: 

THETAH = cos"l TS , J 
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nq 




THETAH = \/ j 2 (TS - l)I 

TS = THETAH 

If bit 8 (GONEBYTG) of FLAGWRD? = 0: 

TS = - TS 

RTGON67 = TS 

If D - K . < 0: 

pt05g 

Set bit 3(05GSW) of FLAGWRD6 = 0 


Return 

Set bit 3(05GSW) of FLAGWRD6 = 1 

iDELVREFp - (DELVREF • UXA)^ 

TS = 9 

(DELVREF • UXA)'^ 

If no overflow has taken place (e.g. |TS|ii l) : 

LdDCALC = 

Return 


INITROLL 

If bit 5(INRLSW) of FLAGWRD6 = 1: 

If RDOT + K 4. X 0: 

vrcont ^ 

DIFFOLD = 0 

DLEWD ” K , - ^ A 

dlewdO 

LEWD = K ,, 
ewdl 

GOTOADDR = "HUNTEST" 


Proceed to "HUNTEST" 

If (KAT - D) < 0, proceed to "CONSTD" 

Proceed to "LIMITL/D" 

If bit 3(05GSW) of FLAGWRD6 = 0, proceed to "LIMITL/D" 

TS = 6k and perform "NEWMODEX" 

ENTRYVN = 0674 

vn 

KAT = '‘idkal • 
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Set bit lO(GONEPAST) of FLAGWRD6 = 0 ("STARTENT" initialized 

this bit to l) 

If NV - K - , <0: 

vfnl 

GOTOADDR = "KEP2" 

Set bit 5(INRLSW) of FLAGWRD6 -- 1 (must be 0 to get here) 
Proceed to "LIMITL/D" 

"" \a3 ^ \ak 27,000 fps to get here) 

CdDO - K /DO 
cone ' 

Reset overflow indicator 


LdD = LAD 

TS = (RDOT / W)3 / + W 

If no overflow has taken place since indicator reset: 

If TS:^0: 

LdD - - LAD 

Set bit 5(lNRLSW) of FLAGWRD6 = 1 (must be 0 to get here) 
Proceed to "LIMITL/D" 

HUNTEST 

A1 = D 


TS = LAD 
If rdot:^o: 

TS - LEWD 

VI NV + RDOT / TS 

AO - (Vl^ / VSQUARE) (^D + RD0 t2 / TS)) 

If RDOT < 0: 

A1 = AO 
If LdD < 0: 


VI = VI - K 


vquit 


Proceed to ''HUNTESTl" 
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HUNTESTl 




) 


O 


ALP = ^2chs 

FACTl - VI / (1 - ALP) 

FACT2 = ALP (ALP - l) / AO 

VL = FACTl (1 - v/"fACT2 Q7 + ALP' ) 

GAMMALl = LEWD (Vl - VL) / VL 

If VL - K <0: 
vmn 

Proceed to "PREFINAL" 

VBARS = VL^ 

TS = - VL 

If TS < 0: 

GOTOADDR = "HUNTEST" 

Proceed to "CONSTD" 

DVL = TS 

VSl = K, 

hav 

TS = VSl - Vl 
If TS ^ 0: 

DVL = DVL - TS (i.e. Vl - VL) 

VSl = Vl 

(1 - VSl / FACTl - AT.P 
DHOOK == FACT2 

AHOOKDV = \ (DHOOK / Q7 ) - 

TS = GAMMALl - (AHOOKDV + l) DVL^ / (DHOOK VBARS ) 

If TS ^ 0: 

GAMMAL = TS 
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If TS < 0: 


(1/3) VL TS 

(1/3) LEWD - (AHOOKDV + 2/3)(K^^,one 


DVL)/(DHOOK VL) 


VL - VL + 


Q7 ^ (1 - VL / FACTl )^ - ALP 

FAGT2 

VBARS = Vl2 
GAMMAL 0 

GAMMALl GAMMALl + (GAMMAL - GAMMALl) 

Proceed to "RANGER" 

PAHCm 

COSG - 1 - 2 GAMMAL^ 

CPE ■ \/l + (VBARS - 2) COSG^ VBARS 

ASKEP -- 2 sin“l (VBARS COSG GAMMAL / CPE ) 

AS PI - Q2 + Kq7 VL 

ASPUP = (^cl2 / G^l^^Ll) logg((Vl^ Q7)/(A0 VBARS ))j 
ASPDWN - ROOT NV /(AO LAD) 

ASP3 = - GAMMAL) 

ASPSpTMp = ( (ASKEPgp, ASPDWN^p), ASP 3 ) 

DIFF = ASP3 + ASPDWN + ASPUP + ASPl + ASKEP - THETAH 
If |DIFF| - <0: 

TS = 65 and perform "NEWMODEX" 

Establish "P 65 .I" (priority 13g) 

GOTOADDR = "UPCONTRL" 

Proceed to address specified by GOTOADDR 

If bit 6 (HIND) of FLAGWRD6 = 0: 

If DIFF ^ 0: (note that polarity of DIFF the opposite 

of that in official equation documentation) 

DIFFOLD = DIFF 
Q7 = 

GOTOADDR = "HUNTEST" 

Proceed to "CONSTD" 
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O DLEM) = (DLEWD DIFF) / (DIFFOLD - DIFF) 

If DLEWD + LEWD < 0 : 

DLEWD ~ ^ LEWD 

Proceed to second previous line (re check of sum with LEWD) 
If overflow has taken place since calciilation of DIFF: 

LEWD = (1 - 2"2S) 

DIFFOLD = DIFF 

GOTOADDR = "HUNTEST" 

Proceed to "CONSTD" 

LEWD = DLEWD + LEWD 

Change priority of present job to l6g (lower than "SERVICER") 
GOTOADDR = "ENDEXIT" 

) DIFFOLD = DIFF 

Set bit 6 (HIND) of FLAGWRD6 = 1 

Proceed to "HUNTEST" 

P65 .1 Established when P 65 entered from "RANGER" 

Set bit 13(ENTRYDSP) of FLAGWRD6 = 0 

TS = 1669 

vn 

Perform "GOFLASHR" : if terminate, proceed to previous line 

if proceed, skip next line 
otherwise, proceed to previous line 

End of job 

Set bit 13(ENTRYDSP) of FLAGWRD6 = 1 
End of job 
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UPCONTRL 


If D - = 

Set bit 7(N0SWITCH) of FLAGWRD 6 = 1 
If NV - VI ^ 0: 


(reset in "L355") 


Reset overflow indicator 

TS = LAD + (root + LAD (NV - Vl)) (scaled B 8 ) 

TS^ - AO VSQUARE / Vl^ - (VI - NV)^ LAD / (scale BO) 

TS 2 "" (D - TS^) + TS (scaled B 8 ) 

Rescale TS 2 to scale factor BO 

If overflow has taken place since indicator reset: 

LdD - LAD sgn TS^ 

Proceed to "GLIMITER" 


LdD = TS^ 

Proceed to "NEGTESTS" 

If D - Q7 < 0: 

TS = 66 and perform "NEWMODEX" 
ENTRYVN = 0622 

vn 

Set bit 13(ENTRYDSP) of FLAGTO 6 = 1 
GOTOADDR = "KEP2" 

Proceed to "KEP2" 

If RDOT < 0: 

If NV - VL - K <0: 

cl 8 

Proceed to "PREFINAL" 

If D - AO^ 0: 

LdD = LAD 

Proceed to "LIMITL/D" 


) 
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VREF = FACTl (l - \/D FACT2 + ALP ' ) 

RDOTREF = LEWD (VI - VREF) 

TS = VSl - VREF 
If TS ^ 0; 

Kchone (l + TS AHOOKDV / DVL) 

RDOTREF = RDOTREF - 

DHOOK VREF 


TS = D - K „ . (Tag here "C0NTINU2") 

qyniin 


Reset overflow indicator 

If TS 0: (should not be, since = +MAX) 

FACTOR = (D - Q7) / (A1 - Q?) 

TS = FACTOR (^NV - VREF + FACTOR (RDOT - RDOTREF 

(scale B4) 

If overflow has taken place since indicator reset: 

LdD = LAD sgn TS 
Proceed to "GLIMITER" 


“ i 0: 


TS = (k 
R escale TS to scale factor BO 


, , , + K , ( 1ts\ 

ptb4 ptone 


- K 


ptb4 


>) 


sgn TS 


TS = TS + LEWD 

If overflow has taken place since indicator reset: 
LdD = LAD sgn TS 


Proceed to "GLIMITER" 


LdD = TS 

Proceed to "NEGTESTS" 


NEGTESTS 


If D 


^c20 


< 0 : 


Proceed to "LIMITL/D" 
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Rev. 0 


Set bit 4 (LATSW) of FLAGWRD 6 = 0 
If LdD < 0: 


LdD = 0 

Proceed to "LIMITL/D" 

CONSTD 

Reset overflow indicator 

TS = CdDO im + Kj^ 2 d ^2hs ) (scale B 8 ) 

TS 2 - (D - DO) + TS (scaled B 8 ) 

Rescale TS^ to scale factor BO 

If overflow has taken place since indicator reset: 

LdD ^ LAD sgn TS^ 

Proceed to "GLIMITER" 

LdD = TS^ 

Proceed to "NEGTESTS" 


KEP2 



Proceed to "PREFIMAL" 


TS, = (ROLLC, , ROLLHOLD) 


tp dp’ ' 

If bit 3(05GSW) of FLAGWRD 6 = 0: 


(ROLLC^p, ROLLHOLD) = TS, 
Proceed to "P62.3" 


tp 

(ENTRYVW set to 0622 by "UPCONTRL" before 
"KEP2" entered, if "^in P 66 ) 


PREFINAL 


GOTOADDR = "PREFINAL' 


(for restart considerations) 


TS = 67 and perform "NEWMODEX" 
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n 




ENTRYVN = 0666 

vn 

Set bit 13(ENTRYDSP) of FIAGWRD6 = 1 
Set bit 8(EGSW) of FLAGWRD6 = 1 
GOTOADDR = "PREDICT3" 


Proceed to "PREDICT3" 
PREDICTS 

If NV - K .^ < 0: 
vquit 


Establish "P 67 .I" (priority l6g) 
GOTOADDR = "P67.2" 


Proceed to "P67.2" 


JJ = 12 


If K „ - > 0 : 

vrfr^T sp 
d d 


GRAD 


JJ = JJ - 1 and repeat check 
_ l^rfrjT “ ^^spj 


- K 




i = JJ 

JJ == JJ + 13 

™ ) 

1 1+1 1 

JJ - JJ + 13 

("drddi+i - ■'drdd, > 


JJ = JJ + 13 


= K^tr. + <5““ <'^rdtr.^, ' ''rdtr.) 

1 1+1 1 


JJ = JJ + 13 
RTOGOV = K, 


rtgo^ 

JJ = JJ + 13 
DREFRV = K ^ + GRAD (K 


+ GRAD ) 


aref . 


*“ K ) 

aref. , aref. 
1+1 1 


JJ = JJ + 13 
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F3V = K 


drd. 


+ GRAD (K 


drd. ^drd.^ 

1+1 1 


Set TS = DREFRV and DREFRV = 0 

PREDANG = RTOGOV + F2V (RDRFV - RDOT) + FIV + TS) 

TS = PREDAN(%p - THETAH 

If bit lO(GONEPAST) of FLAGWRD6 = 1: 

LdD - - LAD 


Proceed to "GLIMITER" 

If bit 8(GONEBYTG) of FLAGWRD? = 1: 

Set bit lO(GONEPAST) of FLAGWRD6 = 1 
DNRNGERR = K 

maxrng 

LdD = - LAD 
Proceed to "GLIMITER" 

DNRNGERR = TS 

Reset overflow indicator 

TS = - 4 DNRNGERR / F3V 

If overflow has taken place since indicator reset ( |TS|:^ l); 
LdD = LAD sgn TS 
Proceed to "GLIMITER" 

TS = TS + LOD 
If |ts|^I: 

LdD = LAD sgn TS 
Proceed to "GLIMITER" 


LdD = TS 


Proceed to "GLIMITER" 
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GLIMITER 





TS = K 

ginxd2 
If TS^O: 


D 


Proceed to "LIMITL/D" 


TS = TS + K 


ginxd2 


If TS C 0: 


LdD = LAD 


Proceed to "LIMITL/D" 
CPX=Vk,,„TS (K,, ^^ LEQ t lAD) 

If CPX + RDOT ^ 0: 

Proceed to "LIMITL/D'' 

LdD = LAD 

Proceed to "LIMITL/D" 

LIMITL/D 

LdDl = LdD 

If bit lO(GONEPAST) of FLAGWRD6 = 1: 

Proceed to "L355" 

CPY = KLAT VSQUARE + K . 

atbias 

If |LdDj -LdDCMINR^O: 

If LATANG sgn K2R0LL < 0: 

LdDl = LdDCMINR sgn LdD 
Proceed to "L355" 

CPY = ^ CPY 

If LATANG sgn K2R0LL - CPY < 0: 
Proceed to "L355" 




(also set in "STARTENT" and 
reset in "INITROLL" after 
O.O 5 G sensed) 
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(set by "UPCONTRL") 


If bit 7 (NOSWITCH) of FIAGWRD6 = 1: 

Set bit 7 (NOSWITCH) of FLAGWRD6 = 0 
Proceed to "L355" 

K2R0LL = - K2R0LL 

Proceed to "L355" 

TS = LdDI / LAD, with magnitiide lijnited < I (due to interpreter 

divide order) 

Set bit 7 (NOSWITCH) of FLAGWRD6 - 0 
ROLLC - (cos“^ TS) sgn K2R0LL 

Proceed to "ENDEXIT" 

ENDEXIT 

If bit I3(ENTRYDSP) of FLAGWRD6 ■= 1: 

TS = ENTRYVN 
Perform "REGODSPR" 

Proceed to "SERVEXIT" (after special check for new job) 

P67.1 Established by "PREDICT3" 

TS - 1667^ 

Proceed to "GOFLASH" : if terminate, proceed 

if proceed, proceed 

otherwise, proceed to previous line 

Set bits 2(CMDSTBY) and l(GYMDIF) of FLAGWRD6 = 0 

AVEGEXIT = "SERVEXIT" 

Proceed to "GOTOPOOH" 

P67.2 

Set bit 13(ERADC0MP) of FLAGWRDl - 0 
ALPHAV = R 

Set bit 12(LUNLATL0) of FLAGWRD3 = 0 

TS = T , 
pptm 

Perform "LAT-LONG" 

Proceed to "SERVEXIT" 
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Quantities in Computations 


See also list of major variables and list of routines 


Al: Value of drag (set to D or AO in "HUNTEST") used to compute FACTOR, 
scale factor BO, G-units (25 g's). 

AHOOKDV: Term in GAMMAL calculation (equal to AHOOK DVL), scale factor 

B4. 

AlGdPIP: See General Program Control. 

ALFAdlSO: Single precision angle, program notation "ALFA/lSO”, giving 
the third Euler angle of the CM attitude (about UBY in "pitch"), 
scale factor B-1, units revolutions. 

ALFAdPIP: See General Program Control. 

ALP: Quantity used to compute VREF in "UPCONTRL" (and computed itself 
in "HUNTESTl", where it is also used), scale factor BO. 

ALPHAV: See Coordinate Transformations. 

ALT: See Display Computations: discussion concerning loading with 
DELVLVC also applicable to "STARTENl". 

AMGdPIP: See General Program Control. 

AO: Initial drag for "UPCONTRL", scale factor BO, G-units (25 g's). 

AOGdPIP: See General Program Control. 

ASKEP: Value of "Kepler range", scale factor BO, units revolutions, 

stored in push-down list location OD. A single precision value is 
available in the ASKEP cell itself for generating telemetry data. 

ASPl: Value of "final phase" range, scale factor BO, units revolutions, 
stored in push-dovm list location 2D. A single precision value is 
available in the ASPl cell itself for generating telemetiy data. 

ASP3: Value of "gamma correction", scale factor BO, units revolutions. 

ASPDWN: Value of "range down to pull-up", scale factor BO, units 
revolutions, stored in push-down list location 6D. A single 
precision value is available in the ASPDWN cell Itself for 
generating telemetry data. 

ASPSpTT^: "Vector" information loaded for telemetry purposes (see 

"RANGER" for format). Cells loaded are the same as those used for 
WBODY (RCS dap) and OMEGAC (TVC DAP)j program notation "ASPS(TM)". 
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ASPUP: Value of "up-range", scale factor BO, units revolutions, stored 
in push-down list location A single precision value is 

available in the ASPUP cell itself for generating telemetry data. 

AVEGEXIT; See General Program Control. 

BETAdlSO: Single precision angle, program notation "BETA/180", 
giving the second Euler angle of the CM attitude (about 
UXA UBY in "yaw"), scale factor D-1, units revolutions. 

BETAdPIP: See General Program Control. 

G 1 . i: Single precision erasable memory constant, program notation 
^ "LADPAD" , scale factor BO, used to initialize LAD in "STARTENT". 

C Single precision erasable memory (constant, program notation 

"LODPAD", scale factor BO, used to initialize LOD in "STARTENT". 

— unitw’ General Program Control. 

CdUO: Value of K ^ J IX), computed in "INITROLL" and used in "CONSTD", 
scale factory's?. 

COSG: Approximation to value of cos GAMMAL, scale factor Bl. 

COSTll: See Coordinate Transformations. 

CPE; Value of eccentricity, scale factor B2 (stored in push-down list). 

CPX: Value of intermediate quantity used in "GLIMITER", scale factor 
Rl, V-units (see NV ) . 

CPY: Value of lateral miss limit, scale factor B2, units of radians. 

D: Value of total acceleration, scale factor BO, G-units (25 g's). 

DELVLVC: See Burn Control (and ALT). 

DELVREF: See General Program Control. 

DHOOK: Quantity used in computation of GAMMAL, scale factor BO. 

DIFF; Difference between predicted and actual expected range, scale 
factor BO, units revolutions. Note that polarity of program 
definition is the reverse of that in official equation documentation. 

DIFFOLD: Previous value of DIFF, scale factor BO, units revolutions. 

DLEWD: Computed desired change in LEWD, scale factor BO. 
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DNRNGERR: Difference between predicted angle of travel and actual angle 
to target (i.e. PREDANG - THETAH) computed in "PREDICT3", scale 
factor BO, units revolutions, provided that bit lO(GONEPAST) of 
FUGWRD6 = 0. If bit is set 1, DNRNGERR is set to K (and 

not subsequently loaded) in P67. maxrng 

DO: Value of ‘'controlled constant D”^ scale factor BO, G-units 

(25 g's). 

DREFRV: Value of table for present NV, same scaling as 

DTEAROT: See Coordinate Transformations. 

DVL: Value of (VSl - VL), scale factor Bl, V-units (see NV). 

ENTRYVN: Single precision cell loaded with verb-noun pattern (in 
proper format) for use in "ENDEXIT" for entry display. 

FIV: Value of table for present NV, same scaling as 

F2V: Value of table for present NV, same scaling as . 

F3V: Value of table for present NV, same scaling as 

FACTl: Value of quantity computed in "HUNTESTl", scale factor B1 
V-units (see NV). 

FACT2: Value of quantity computed in "HUNTESTl”, scale factor BO. 

FACTOR: Quantity used in "UPCONTRL" (initialized to 1 in "STARTENT") 
scale factor BO. * 

GAM: Single precision angle computed in "CM/POSE", scale factor BO 
units revolutions, used to compute (by forming first difference 
with previous value) GAMDOT. 

GAMDOT: Rate of change of GAMA per 0.1 second, scale factor B-1, units 
revolutions. Set to zero if magnitude is less than 

GAMML: Value of "flight path angle at VL", scale factor BO, units 
radians . ’ 

GAMMLl: Value of "simple form of GAMML", scale factor BO, units 

radians. Stored in push-down list location 22D. 

GOTOADDR: Single precision cell used to contain the starting address 
of the computations performed after "SCAIEPOP" is performed, and 
used to control the phases of the entry computations. Prior to 
start of entry computations, used as storage for return address 
information. 

GRAD: Single precision "gradient" of present velocity with respect to 

a table value, scale factor BO, used to permit linear interpolation 
in "PREDICT3". 
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I-IEADSUP: vSee Entr^/- Preparation. 

tlrl: Single precision indexing parameter used in ’'PREDICT3" j, scale factor 
BI4. It is incremented by 13 to select the next set of tabular 
information within an index loop (the incrementing is shown because 
the quant'M-.y is on the downlink). 

K. : Constant, program notation "l/GMAX"^ scale factor B-2^ units 

■ ^ ^^of g-l. Value is 0.5, corresponding to (I/8) x where first 
berm is reciprocal of ’’GMAX” and second is scale factor. 

^IdlV / ‘ Constarit^ program notation ''1/K44'S scale factor B-1, units 
of ( l/V~uriits) . Stored value is 0.00260929464^ corresponding 
to (1/19749550) X 25766.1973 ^ 2^, where first term is reciprocal 
of "K44" (in iinits of fps)^ second is V-unit conversion^ and third 
is scale factor. 

^Idkal* program notation "l/KAl'*^ scale factor B6^ units of 

G-units (25 g’s) reciprocal. Value is 0. 30048077 ^ corresponding 
to (1/1.3) X 25 X 2“°, where first term is reciprocal of "KAl" 

(in unj.ts of g's), second is G-unit conversion, and third is the 
S('ale factor. 

Kidkb’ Constant, program notation "l/KBl", scale factor BO, value 
0 . 400 . Value corresponds to ( 1 / 2 . 5 ), or the reciprocal of 
the value of "KBl" . 

K,, Constant, program notation "2C1HS", scale factor B2, value 
'"'0.02159^3264. Value corresponds to 2 x (1.25) x 28500 x 805 
X (25766.1973)“^ X 2”^, where first term is equation factor of 
2, second is value of Cl, third is value of HS, fourth converts 
answer from fps^ to G-units (of 25 g's @ 32.2 fps2 =- 805 fps2), 
fifth converts velocity to fps from V-units, and sixth is scale 
factor . 

Kpvo' Constant, program notation ’'2HS", scale factor B2, value 
0.0172786611. Value corresponds to 2 x 28500 x 805 x 
(25766.1973)“^ X 2“2^ where temns (except for the omission of 
the 1.25 factor for Cl) have analogous significance to those 
Kpchs- 

^2hsgmxq' Constant, program notation "2HSGiyiXSQ", scale factor B4, 
value 3'05717E-5. Value corresponds to the square of: 

{2 X 28500 X 8 X 32.2 X (25766.1973)"^ X where first 

term is equation factor of 2, second is value of HS, third is 
value of GMAX (in g's), fourth converts GMAX to fps2, fifth 
converts V-units to fps, and sixth is square root of scale factor. 

Kpc : Constant, program notation "25NM", scale factor BO, units 

25nm j^eyolutions . Value is 0. 00115 Ao74j corresponding to 

25 X (1/21600), where first term is "basic" value and second 
converts from nmi to revolutions (it is the reciprocal of 
3437.7468 X 2Tr j or 60 X 360 for 60 nmi/degree) . 

: Constant, program notation "500SEC", scale factor B28, units 

^ centi-seconds. Value is 5 OOOO x 2“^®, corresponding to 500 

seconds . 
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K^ref* Single precision set of constants, scale factor BO, G-units 
(of 25 g's). To convert to fps^, multiply table entries by 
32.2 X 25 = 805. Table starts at "VREFER +65". See below. 

K tbias' Constant, program notation "lATBIAS", scale factor B2, value 
0.00003, units radians. Corresponds to 0.00012 radians, or 
(multiplying by 3437.7468) O.412529616 nmi. 

K . : Constant, program notation "lATSLOPE", scale factor B-1, value 

™ O.O83333. Value corresponds to (l/l2) x 2“^, or (I/24) . 

^cl2’ program notation "C12", scale factor B-5, value 

0.00684572901. Value corresponds to 28500 x (l/21 202 900) x 
(I/2TT) X 2'^, where first term is HS, second is reciprocal of 
RE in feet (standard "entry radius")? third converts from radians 
to revolutions, and fourth is scale factor. 


KcIq: Constant, program notation "CIS", scale factor Bl, V-units (see 
NV). Value is 0.0097026346, corresponding to 500 x (1/25766.1973) 
X 2“1, where first term is "basic" value (in fps), second converts 
to V-units, and third is scale factor. 


K 20* Constant, program notation "C20", scale factor BO, G-units (of 
25 g's). Value is 0.26086957, corresponding to 210 x (I/8O5), 
where first term is "basic" value (in fps^), and second is 
conversion to G-units. 


K 21= Constant, program notation "C21", scale factor BO, G-units 

(of 25 g's). Value is 0.17391304, corresponding to I40 x (1/8O5), 
where first term is "basic" value (in fps^), and second is 
conversion to G-units. 


Kchk' Constant, program notation "CHOCK", scale factor B4, value 
2~^, corresponding to 0.25 x 2“^, where first term is "basic" 
value and second is scale factor. 


K hone’ Constant, program notation "CHI", scale factor B-4, value 
0.32 X 2 ^. Value corresponds to 1.0 x (l/25) x 2^, where 
first term is the "basic" value, second converts to G-units, and 
third is scale factor. 


Kcone’ Constant, program notation "COOl", scale factor B6, value 
-0.000625. Value corresponds to (-1) x (l/25) x 2~^ , where 
first term is "basic" value, second converts to G-units, and 
third is scale factor. 


^csl5p2’ Constant, program notation 
0.965. Value corresponds to 


"C0S15", scale factor BO, value 
cosine 15.2 degrees. 


^dlewdO' 


Constant, program notation "DLEWDO", 

-0.05. 


scale factor BO, value 
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K, Single precision set of constants, scale factor B-3, units 
^ revolutions . Multiply table entries by 2 l 600 x 2"3 = 2700 to 
convert to nmi. Table starts at "VEEFER + 78 ". See below. 

K : Single precision set of constants, scale factor B-3, units 
^’^'^^revolutions/G-unit . Multiply table entries by 2700/805 to 
convert to units of nini/fps^. Table starts at "VREFER +13". 

See below. 

Ki A i Single precision set of constants^ scale factor B— 1^ units 

revolutions/V-unit . Multiply table entries by 10800/25766.1973 
to convert to units of nmi/fps (10800 — g 2l600). Table starts 
at "VlffiFER +26”. See below. 

K : Constant, program notation "LEWDl”, scale factor BO, value 0.15. 
ewdl 

K ; Single precision constant, program notation "FIVE", scale factor 
B-1, units revolutions per 0.1 second. Value is 5 x 2 
corresponding to a rate of about 0.5493 degrees/second . 

K Constant, program notation ''GMAX/2”, scale factor BO, G-units. 

Value is 0.16, corresponding to g x 8 x (l/25), where first 
term gives equation factor of 2 , second is GMAX (in g's), and third 
converts to G-units (of 25 g's). 

K. ; Constant, program notation "HALVE", scale factor Bl, units 
V-unlts. Value is 0.5, corresponding to 25766.1973 fps (one 
V-unit), i.e. "VSAT" . 

K, Constant, program notation "KID", scale factor B 8 , value 
0.0314453125" Value corresponds to 0.01 x 805 x 2“ , where 
first term is "basic" value (corresponding to "CI 6 "), second 
converts to fps^, and third is scale factor. 

K, ^ : Constant, program notation "K 2 D", scale factor B7, value 
- 0 . 402596836 . Value corresponds to (-1) x 0.002 x 
25766.1973 X 2~7, where first term is equation factor, second 
is "basic" value ("C17"), third converts from V-units to fps, 
and fourth is scale factor. 

Kka2' Constant, program notation "KA2", scale factor BO, G-units. 

Value is 0.008, corresponding to 0.2 x (l/25), where the 
first term is "basic" value (in g's) and second converts 
to G-units of 25 g's. 

K] o" Constant, program notation "KA 3 ", scale factor B-2, G-units. 

Value is 0.44720497, corresponding to 90 x ( 1/805) x 2 ^, where 
first term is "basic" value (in fps^), second converts to 
G-units, and third is scale factor. 

K-. 1 ". Constant, program notation "KA4", scale factor BO, G-units. 

^ Value is 0.049689441, corresponding to 40 x ( 1/805 ), where 
first term is "basic" value (in fps^), and second converts 
to G-units. 
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K : Constant^ program notation "KACOS”, scale factor B 5 ^ value 
004973592, corresponding to (l/2'TT) x 2 " 5 , 

^kalim' •^°’^stant, program notation "KALIM", scale factor BO, G-units. 

Value is O.O6, corresponding to I.5 x (I/25), where the first term 
is "basic" value (in g's) and second converts to G-units of 25 g's. 

^kasc' Clonstant, program notation "KASCALE", scale factor B-I3, value 
0.97657358. Value corresponds to 0.0585 x (I/O.3048) x (I/8O5) x 
2 X 2-^-^, where first term is accelerometer scale factor (meters/ 
second per count), second converts to feet, third converts to 
G-units, fourth compensates for the two-second accelerometer 
sampling cycle, and fifth is scale factor. 

^kc3‘ Constant, program notation "KC3'', scale factor B- 2 , value 
-0.0247622232. Value corresponds to (-1) x (l /21 202 900 ) x 
(l/ 2 tr) X (25766.1973)^ X ( 1 / 805 ) X 2^, where first term is 
"equation" value, second is reciprocal of RE in feet ("entry 
radius"), third converts to revolutions, fourth converts 
V-units to fps, fifth converts to G-units, and sixth is 
scale factor. 

^ktl‘ Constant, program notation "KTl", scale factor B 29 , value 15 . 7788327 
X 2 Value corresponds to (21 202 900 ) x ( 1 / 25766 . 1973 ) 

X 100 X 2 Tf X 2 where first term is RE ("entry radius"), 
second converts V-units, third converts to centi-seconds, 
fourth converts THETAH to radians, and fifth is scale factor. 

%teta’ Constant, program notation "KTETA", scale factor B 28 , value 

38.3495203 X 2 Value corresponds to 10 ^ x 100 x 2 Tr x 2 ~^®, 

where first terra is "basic" value, second converts to centi-seconds, 
third converts THETAH to radians, and fourth is scale factor. 

^kvsc* Constant, program notation "KVSCALE", scale factor B-6, value 

0.8^91944. Value corresponds to ( 1 / 25766 . 1973 ) x 100 x (I/O.3048) 

X 2 °, where first term is one V-unit (in fps) conversion, second 
converts from centi-seconds to seconds, third converts from 
meters to feet, and fourth is scale factor. 

'^^kwe' Constant, program notation "KWE", scale factor BO, value 
0.120056652 X 2 “ 1 . Value corresponds to 1546.70168 x 
(1/25766.1973), where first term is value in fps (corresponds to 
radius of 21 210 605 feet for a period of 86I64.IO seconds) and 
second converts to V-units. 

^maxrng* program notation "MAXRNG", scale factor BO, units 

^revolutions . Octal value is 16631^ 06755^, corresponding to 
about 0.46247666 revolutions. Value selected so that noun display 
of DNRNGEER for this information will be + 9999.9 nmi (DSKY noun 
conversion factor is 2-JJ x 6,373,338 meters = 21622.4965 nmi/rev) . 

K 1 Constant, program notation "- 1 /KB 2 ", scale factor B- 3 , value 

-0.0077621078 X 2 ^. Value corresponds to (-l) x (1/O.OO25) x 
(1/25766.1973) X 2 -^, where first term is equation factor, second 
is reciprocal of basic constant ("KB 2 "), third converts V-units, 
and fourth is scale factor. 
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K , : Constant, program notation "-HSCALED", scale factor Bl, value 

innsca _o 553050 I 8 . Value corresponds to (- 1 ) x 28500 x (1/25766.1973) 
X 2 where first term is equation factor, second is value of HS, 
third converts V-units, and fourth is scale factor. 

K , : Constant, program notation "-KSCALE", scale factor Bl, value 

- 0 ^ 0312424837 . Value corresponds to (-2) x 805 x (1/25766.1973) 

X 2“^, where first tern is "equation" value, second converts G- 
units to fps^, third converts V-xinits to fps, and fourth is 
scale factor . 

K , : Constant, program notation "-KVSCALE", scale factor B-6, value 

8149 1944, or - 

Constant, program notation "IBITDP", scale factor BO, G-units. 
Value is 2“^®, corresponding to about 10”'7 g. 

K Constant, program notation "NEARl/4", scale factor B2, value 

(p - 2“^). Value corresponds to (l - 2“^^), or about 0.99976, 
i.e. cos lp° . 

K iQc : Constant, program notation ''.05G", scale factor BO, G-units. 

^ ^ Value is 0 . 002 , corresponding to 0.05 x (l/25), where first 

term is "basic" value (in g's), and second converts to G-units 
(of 25 g's). 

K ; Constant, program notation "PTI/I6", scale factor B4, value 
^ ^0.1 X 2“^, corresponding to a "basic" value of 0.1. 

Kptone* Constant, program notation "POINTl", scale factor BO, value 0.1. 

K Constant, program notation "Q3", scale factor B-1, value 
^ 0.167003132. Value corresponds to 0.07 x 25766.1973 x (I/2I6OO) 

X 2^, where first term is "basic" value (in units of nmi/fps), 
second converts V-units, third converts to revolutions, and 
fourth is scale factor. 

K Constant, program notation "Q5", scale factor BO, value 

0.326388889. Value corresponds to 7050 x (I/216OO), where 
first term is "basic" value (in units of nmi/rad, corresponding 
to 0.3 X 23500) and second converts from nmi to revolutions. 

K /•. Constant, program notation "Q6", scale factor BO, units radians. 
Value is 0.0349, or about 2°. 

K ryf'- Constant, program notation "Q7F", scale factor BO, G-units. Value 
is 0.0074534161, corresponding to 6 x (I/8O5), where first term 
is "basic" value (in fps^), and second converts to G— units. 

^q7fkdm' ^o^^tant, program notation "Q7FKDMIN", scale factor BO, G- 
units. Value is 0.0080745342, corresponding to 6.5 x (I/ 8 O 5 ), 
where first term is "basic" value (in fps^), and second converts 
to G-uinits. 
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^qVmln' ^o^^stant, program notation "Q7MIN", scale factor BO, G-units. 

Constant is (l - 2 28)^ corresponding to about 25 g's (to disable 
the check in "UPCONTRL" to recompute FACTOR), or 805 fps^. 

^ql9‘ ^oJ^stant, program notation "Q19", scale factor BO, value 0.5. 

^q21' Constant, program notation "Q21", scale factor BO, units 
revolutions. Value is 0.162037037, corresponding to 3500 x 
(1/21600), where first term is "basic" value (nmi), and second 
converts to revolutions. 

^q22‘ Constant, program notation "Q22", scale factor BO, units 

revolutions. Value is -0.092222222, corresponding to -1992 x 
(1/21600), where first term is "basic" value (nmi), and second 
converts to revolutions. 

^rdtr’ ^^ngle precision set of constants, scale factor B-2, V-units. 
Multiply table entries by (^ x 25766.1973) to convert to fps. 

Table starts at "VREFER +39" . See below. 

^rtgo- Single precision set of constants, scale factor B-3, units of 
revolutions. Multiply table entries by 2700 (i.e. 2-3 x 2l600) 
to convert to nmi. Table starts at "VREFER +52". See below. 

^spvq' Single precision constant, program notation "SPVQUIT", scale 
factor Bl, V— units. Octal value is 00476<n, corresponding to 
about 1000 . 2 fps . 

^tcdu* Single precision constant, program notation "TCDU", scale factor 
B-1, value 0.1. Value corresponds to g x 0.1 x 2 ^, where first 
term reduces angle rate from units of computing cycles (2 seconds) 
to seconds, second is "basic" value (to determine angle increment 
per 0.1 second), and third is scale factor. 

^fin- Constant, program notation "VFINAL", scale factor Bl, V-units. 
Value is 0.516 18016, corresponding to 26600 x (1/25766.1973) 

X 2-1, where first term is "basic" value Un fps), second converts 
to V-units, and third is scale factor. 

\fnl; Constant, program notation "VFINALl", scale factor Bl, V-units. 
Value is 0.523942273, corresponding to 27000 x (1/25766.1973) 

X 2“!, where first term is "basic" value (in fps), second converts 
to V-units, and third is scale factor. 

^vmin,’ ^O’^stant, program notation "VMIN", scale factor Bl, V-units. 

Talue is 0.25, corresponding to a velocity of i (25766.1973) fps 
or about 12883.1 fps. ’ 

^vmn' ^o’^st^t, program notation "VLMIN", scale factor Bl, V-units. 

Valuj is 0.34929485, corresponding to 18000 x (l/2 5766. 1973) 

X 2 , where first term is "basic" value (in fps), second converts 

to V-units, and third is scale factor. 
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^quit- Constant, program notation "VQUIT”, scale factor Bl, V-units. 

Value is 0.019405269, corresponding to 1000 x (1/25766.1973) 

X 2“1, where first term is "basic" value (in fps), second converts 
to V-units, and third is scale factor. 

^vrcont* Constant, program notation "VRCONT", scale factor Bl, V-units. 

Value is 0 .013 5836886, corresponding to 700 x (1/25766.1973) 

X 2 , where first term is "basic" value (in fps), second converts 

to V-units, and third is scale factor. 

Single precision set of constants, scale factor Bl, V-units. 

Multiply table entries by (2 x 25766.1973) to convert to fps. 

Table starts at "VREFER" . See below. 

K2R0LL: Quantity, scale factor BO (only the sign is used, with quantity 

initialized to a non— zero magnitude in "STARTENT"), used to determine 
sign of ROLLC (used for lateral control) . 

KAT: Quantity, scale factor BO, G-units, computed in "INITROLL" the first 
cycle that D is not less than nnd used as the "drag to 

lift up if down" . P 

KLAT; Value of lateral switch gain computed in "STARTENT", scale 
factor BO. 

LAD: Value of "maximum L/D (minimum actual vehicle L/D)" initialized 
in "STARTENT" from scale factor BO. 

LAT: See Coordinate Transformations. 

LATANG: Value of "lateral range", scale factor B2, units radians. Program 
notation also "XRNGERR". 

LATSPL: See Display Computations. 

LdD: Value of "desired llft-to-drag ratio (vertical plane)", scale factor 
BO. Program notation "L/D". 

LlDl: Value of LdD used to compute ROLLC (set to LdD at start of "LIMITL/D", 
and perhaps subsequently changed), scale factor BO. 

IdDCALC: Value of L/D computed in "TARGETNG" (for telemetry piirposes 
only), scale factor BO. Uses same cell as TTE (see Display 
Computations). Program notation "L/DCALC" . 

IdDCMINR: Value of LAD cos 15.2° computed in "STARTENT", scale factor BO. 
Program notation "L/DCMINR". 

LEQ: Value of (VSQUARE - l), scale factor B2, units of gravity (divide 
by 25 to convert to G-units). 

LEWD: Value of "UPCONTRL" reference L/D, scale factor BO. Updated in 
"RANGER" and initialized in "INITROLL". 
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LNGSPL: See Display Computations. 


sJ 


LOD: Value of "Final Phase L/D" loaded in "STARTENT", scale factor BO, 


LONG: See Coordinate Transformations. 

mVREL: Complement of relative velocity, program notation "-VREL", scale 
factor Bl, V-units. Computed in "CM/POSE". 

NV: Magnitude of VEL (velocity normalized by satellite velocity of 

25766.1973 fps), scale factor Bl, V-units. Progr am nota tion "V". 
One V-unit, i.e. 25766.1973 Tps, corresponds to vfPM where 
RE = 21 202 900 (300 000' above 2.09029E7 feet). 

OLDUYA: Previous value of UYA saved in "CM/POSE", scale factor Bl. 


POSEXIT: Single precision exit address from "CM/POSE" . Set to "P 62 . 3 " 

at start of "P 62 "; set to "STARTENT" in "P63"; and set to "SCALEPOP" 
(the normal beginning of the entry computations) in "STARTENT". 


PREDANG: Single precision value of "predicted range" computed in 

"PREDICT 3 ", scale factor B- 3 , units revolutions (one revolution 
is 21600 nmi) . Terms are double precision if possible . 

Q 2 : Value of final-phase ranging information used in "RANGER" to compute 
ASPl, scale factor BO, units revolutions. It is initialized in 
"STARTENT" based on the specified value for LAD. 

Q7: Value of minimum drag for "UPCONTRL", scale factor BO, G-units. 
Initialized in "STARTENT". 

Rt. % = See Coordinate Transformations. 

ROOT: Value of altitude rate, scale factor Bl, V-units. 

RDOTREF: Value of reference RDOT computed in "UPCONTRL", scale factor 
Bl, V-units. 

RDRFV: Value of table for present NV, same scaling as 

ROLLC: Value of roll command output of equations, scale factor BO, 
units revolutions. 

ROLIdlSO: Single precision angle, program notation "ROLL/I8O", giving 
the first Euler angle of the CM attitude (about UBX in "roll"), 
scale factor B-1, units revolutions. 

ROLIdPIP: See General Program Control. 


ROLLHOLD: See Digital Autopilot Entry Routines. 

RTG0N67: Value of THETAH (with negative sign if not yet past target) 
loaded in "TARGETNG" for use with nouns 64 and 67, scale factor 
BO, units revolutions. Program notation also "RTG0N64". 
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RTOGOV: Value of K. 


table for present NV, same scaling as K. 


rtgo 

SINTH: See Coordinate Transformations. 


rtgo- 


THETA: See Coordinate Transformations. 

THETAH: Value of "desired range" (angle between present position vector 
and appropriately rotated target vector), scale factor BO, units 
revolutions . 

TlMEdRTO: Value of computer time for which R. . is valid, scale factor 
B28, units centi-seconds . Loaded in "STARTENl", with program 
notation "TIME/RTO" . 

UBX, UBY, UBZ: Unit vectors, scale factor Bl, computed in "CM/POSE". 
They define the "body axis triad" in reference coordin^es: if 
all three gimbal angles are zero, = unitX H^FSMMA'y etc; 
otherwise, the sequence is about y, z,x axes (inner, middle, and 
outer respectively) to go from platform to body axes. 

UNI: Unit vector, scale factor Bl, giving the "normal to the trajectory 
plane " . 


UNITV: Unit VEL vector, scale factor Bl. 

UXA, UYA, UZA: Unit vectors, scale factor Bl, computed in "CM/POSE". 

They define the "trajectory triad" in reference coordinates. 

UXA is in the direction of mVREL; UYA is in the direction of 
y r (left constant if magnitude of mVREL is less than Kgpyq), 
and UZA completes the right-handed coordinate system (in direction 
of UYA y) . Note that UXA corresponds to "- UVA" and UZA 
corresponds to "UNA". 

VI: Value of initial velocity for "UPCONTRL", scale factor Bl, 

V-TUiits. 

VBARS: Value of VL^, scale factor B2 (since VL in units of VSAT, no 
explicit division by VSAT is necessary to obtain VBARS). 

VEL: Value of velocity used in entry computations (inertial or relative), 
scale factor Bl, V-units. 


VL: Value of exit velocity for "UPCONTRL", scale factor Bl, V-units. 

VMAGI: Magnitude of V computed at the end of "CM/POSE", scale factor 
B7, units meters/centi-second, computed for display purposes. 

VREF: Value of reference velocity for "UPCONTRL", scale factor Bl, 
V-units. 

VSl: Value of the lesser of VI or Kj^a,v factor), scale factor Bl, 

V-units . 

VSQUARE: Square of NV, scale factor B2(cf. discussion on VBARS). 
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Constants used in ''PREDICT3" Reference 
Table 


i 

^rfr 

%rda 

%rdd 

^rdtr 

rt^o 

^aref 

%rd 




Stored Values 







Multip^ 
by 2"3 

Multi^^ 




0 

.019288 

-.010337 

-.0478599 

-.0134001 

.00137037 

-.051099 

.004491 

1 

.O4O8O9 

-.016550 

-.0683663 

-.013947 

.00385185 

-.074534 

.008081 

2 

.076107 

-.026935 

-.1343468 

-.013462 

.00874074 

-.101242 

.016030 

3 

. 122156 

-.042039 

-.2759846 

-.011813 

.017148 

-.116646 

.035815 

k 

.165546 

-.058974 

-.4731437 

-.0095631 

.027926 

-.122360 

.069422 

5 

.196012 

-.070721 

-.6472087 

-.00806946 

.037 

-.127081 

.104519 

6 

.271945 

-.098538 

-1.171693 

-.006828 

.063296 

-.147453 

.122 

7 

.309533 

-.223611 

-1.466382 

-.00806946 

.077889 

-.155528 

. 172407 

8 

.356222 

-.298148 

-1.905171 

-.0109791 

.098815 

-.149565 

.252852 

9 

.404192 

-.298148 

-2.547990 

-.0151496 

.127519 

-.118509 

.363148 

10 

.448067 

-.602557 

-4.151220 

-.0179817 

. I86963 

-.034907 

.512963 

11 

.456023 

-.99999 

-5.8I3617 

-.0159061 

.238148 • 

-.007950 

.558519 

12 

.67918 

-.99999 

-5.813617 

-.0159061 

.294185 

-.007950 

.558519 






(9 figures) 





Basic Values 




0 

993.9 

-.03460 

-.002507 

-690.4 

3.63 

-41.12 

12.19 

1 

2104.2 

-.05548 

-.003582 

- 718. 7 

10.38 

-59.99 

21.75 

2 

3922.1 

-.09028 

-.007035 

-693.5 

23.57 

- 81.51 

43.34 

3 

6293.7 

-.14105 

-.014454 

- 608.6 

46.31 

-93.89 

96.73 

k 

8530.0 

-.19775 

-.024790 

-492.6 

75.48 

- 98.56 

187.37 

5 

10099.5 

-.23726 

-.033898 

-416.0 

99.87 - 

■102.30 

282.13 

6 

14015.4 

-.33041 

-.061399 

-351.9 

170.89 

■118. 71 

329.43 

7 

15949.8 

-.75007 

-.076826 

-416.0 

210.28 

■125.19 

465.55 

8 

18355.9 

- 1.0002 

-.099825 

-565.8 

266.80 

■120.38 

682.75 

9 

20828.1 

- 1.0002 

-.13349 

- 780.8 

344.26 

- 95 .42 

980.53 

10 

23089.6 

-2.0209 

-.21752 

-926.7 

504.77 

- 28.10 

1384.94 

11 

23498.4 

-3.3538 

-.30459 

- 819. 7 

643.03 

-6.39 

1508 . 04 

12 

35000.8 

-3.3538 

-.30459 

- 819.7 

794.31 

-6.39 

15O8.04 


"VREF" 

"DR/DA" 

"DR/DRDOT" 

"RDOTREF" 

"RTOGO" 

"DREFR" 

"DR/DL/D 


fps 

nmi/fps^ 

nmi/fps 

fps 

nini 

fps^ 

nmi 


The "Basic Values" were obtained by converting the octal memory 
information into the corresponding decimal values (using the appropriate 
scaling information), and therefore differ slightly from the results that 
would be obtained by multiplying the (nominal) "Stored Values" by the same 
scaling information. 
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Entry Preparation 


P6l 


EKTVBACT — 20000g (lock out other extended verbs) 
HEADSUP = -1 
Perfom "S6l.l" 

TS = 0661 

vn 

Perform "VNFLASHR" : (if terminate, proceed to "GOTOPOOH") 

if proceed, skip next line 
othervd.se, proceed to previous line 


End of job 
If HEADSUP > 0: 

If HEADSUP = +0 or if HEADSUP < 0: (ROLLC not loaded for -0 HEADSUP) 

ROLLC = ( {hEADSUP/ -l) , limited ^+0 (i.e. 0 if HEADSUP 

EXTVBACT = 20000^ 

o 

Proceed to "NEWRNVN" 


NEWRNVN 

MM = T . 

pptm 

Perform "STARTENl" 

Set bit 3(05GSW) of FLAGWRD6 = 0 

R = R 
^ne — 

URONE = unitR 
~ “One 


V = V 


^ne “ 
UNI = unit 


(V * URCNE) 
—one — 


If 


(MM - T ,. ) < 0: 
pptm^ 

Proceed to "NEWRNW" 


Perform "S 61 . 2 " 


(an Average-G update has occurred) 
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Perform "CLEARMRK" (resets EXTVBACT to O) 

TS = 0660 

vn 

Proceed to "VNFIASH" : (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 


TS . 1663^ 

Proceed to "GOFUSH"; if terminate, proceed to "GOTOPOOH" 

if proceed, skip next 2 lines 
othervd.se, proceed 


EXTVBACT = 20000g 
Proceed to "NEWRNVN" 

TS = 62 and perform "NEWMODEK" 
DNLSTCOD ■= 1 

Proceed to 'T62" 


P62 


Perform "S6l.l" 

POSEXIT = "P62.3" 

Inhibit interrupts (until released, routine is "CM/DAPIC") 

TS = 8192 + 8192 + TIMEl - (least significant half of T , ), 

pptm 

modulo 16384 

(equivalent to T - T , ) 
now pptm^ 


If (TS - 5)> 0: 



TS - TS - 10 and repeat check(proceed to previous line) 

TS = (TS - 5) , limited ^ 1 centi-second 
CMdGYMDT = TS 

Call "READGYMB" in TS centi-seconds (5 cs out of phase with 

"READACCS") 

Set bits 13(EMTRYDSP), 12(CMDAPARM) , ll(GA]y[DIFSW) , 3(05GSW), and 
l(GYMDIF) of FMGWRD6 = 0 

Set bits 4(LATSW) and 2(CMDSTBY) of FLAGWRD6 = 1 
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BETAdlSO = 0 
SWdNDX = 1 
Release interrupts 

AVEGEXIT = "CM/POSE" (Tag here "P62.2") 

TS = OOOAlg 

Perform "GOPERFIR" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next line 
otherwise, proceed to previous line 


End of job 

Proceed to "CM/DAPON" (returns to "P62.1") 

P62.1 

TS = 0661 

vn 

Proceed to "GOFLASH" : if terminate, proceed to previous line 

if proceed, proceed 

otherwise, proceed to previous line 


If HEADSUP > 0: 


(note that, contrary to "P61", low half 

not set) 

If HEADSUP = +0 or if HEADSUP < 0: (ROLLC not loaded if HEADSUP -0) 

(i.e. 0 if 
HEADSUP = -1) 


^^^L^sp = Stl4 


ROLLC = K ( [heADSUPI - l) , limited X +0 (i.e. 0 if 

sp rvsc • • ^ y '• 


ALFACOM = C 


alfapad 


BETACOM = 0 


P63FLAG = 1 
ENTRYVN = 0622 

vn 

Set bit 13(ENTRYDSP) of FLAGWRD6 = 1 

If bit 1 of CMDAPMOD = 1, End of job (CMDAPMOD = -0 or +l) 

Proceed to "P63" (CMDAPMOD = +0; the -1 value shoiald not exist 

at this point) 
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E62...J. (address set in "P62" into POSEXIT; entered from "KEP2") 

= UYA cos ROLLC + UZA sin ROLLC 

“ <^dc * ‘^alfapad + '^alfapad 

psm] "" ]REFSMMAT] 

Perform "CALCGA" 

Proceed to "ENDEXIT" 

WAKEP62 Called by "EXDAP" 

Establish "P 63 " (priority 13g) 

End of task 

P 63 Established by "WAKEP62" or entered from "P 62 . 1 " 

TS = 63 and perform "NEWMODEX" 

POSEXIT = "STARTENT" 

ENTRYVN = 0664 

vn 

P 63 FLAG = -1 
Perform "GLEANDSP" 

End of job 
S 6 I.I , 

6 OGENRET = Return address 
Perform "R02B0TH" 

If bit I(AVEGFLAG) of FLAGWRDl == 1: (true for entrance from 

"P62" if V 37 not used to 
Proceed to "S 6 I.IA" start P 62 ) 

Perform "MIDT0AV2" 

Call "S 6 I.IC" in TS+1 centi-seconds (TS set when exit from 

^ "MIDT0AV2") 

End of job 
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S61.1C 


Establish "S 6 I.IA" (priority 13g) 
AVBQEXIT = "SERVEXIT" 


Proceed to "PREREAD" 

S 6 I.IA 

TS = \m±t( [rEFSMMA^ (V * R) j 
If TS \ 0: 

If TSy - vector overflowed: 

Proceed to address specified by 6 OGENRET 

If TS < 0: 

7 

If - TS^ - ^ ii* unit vector overflowed: 


Perform "ALARM" (pattern 142?^) 

O 

Skip next line 

Perform "ALARM" (pattern 1426-) 

O 

TS = 0509 

vn 

Perform "GODSPR" 


(IMU "reversed") 


Delay 10 seconds (by putting job to sleep via "DELAYJOB") 
Proceed to address specified by 6 OGENRET 
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Quantities in Computations 

See also list of major variables and list of routines 


6CGEMRET: Single precision cell used to retain return address information 
from "S61.1". 

ALFACOM: See Digital Autopilot Entry Routines. 

AVEGEXIT: See General Program Control. 

BETACOM: See Digital Autopilot Entry Routines. 

BETAdlBO: See Entry Computations. 

C Single precision erasable memory constant, program notation 

^ apa ^ scale factor B-1, units revolutions, giving the 

nominal trim angle (expected to be a negative ninnber). 

CMDAPMOD: See Digital Autopilot Entry Routines. 

CMdGYMDT: See Digital Autopilot Entry Routines. 

DNLST COD : See Te leme t ry . 

ENTRYVM : See Entry Computations . 

EXTVBACT: See Verb Definitions. 

HEADSUP: Single precision quantity used to indicate desired initial 
attitude of vehicle : it is positive non-zero if a ROLLC of 180 
degrees (lift down) is desired, which is a "heads up" attitude. 
Should be set to -1 (or 0) if a ROLLC of 0 degrees (heads down/ 
lift up) is desired. Scale factor is B14, and it is initialized 
at start of "P61" to -1 (before the N6l display which can be used 
to change it there). 

K, , 1 , : Single precision constant, program notation "BITIA", scale 
uactor BO, units revolutions. Value is 0.5, corresponding to 
180 degrees. Used in "P6l" as double precision information, 
with least significant half zero, for initializing ROLLC; in 
"P62.1", however, is single precision, with least significant 
half of ROLLC left alone. 

K oQ^: Constant, program notation "C(30)LIM", scale factor Bl, value 
^ 0 . 566985 . Used in program in such a way (a check on performing 

overflow) that effective value is O. 866 O 3 , or cosine 30 degrees: 
the value in memory is 1.0 - -g cos 30 °. 
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^rvsc' constant used to indicate rescaling of HEADSUP information 

from a scale factor of BI4 to a scale factor of BO revolutions 
"value" 2 ^ (see HEADSUP). If HEADSUP were loaded in N61 with'a 
value of -04097, for example, then ROLLC would be set to +90°. 

MM: Storage for state vector time in "NEWRNVN", to ensure a consistent 
state vector for "S6l.2", scale factor B28, units centi— seconds. 

It is the time tag for R and V , and hence is used in "S6l.2" 
to compute TTE2 (see Display CompuSItions ) . 

P63FLAG: See Digital Autopilot Entry Routines. 

POSEXIT: See Entry Computations. 

-one’ Display Computations. 

ROLLC: See Entry Computations. 

SWdNDX: See Digital Autopilot Entry Routines. 


UNI: See Entry Computations (computed in "NEWRNVN" for "S6l.2"). 
URONE: See Display Computations. 

UXA, UYA, UZA: See Entry Computations. 

—one’ Display Computations. 
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General Program Control 


PREREAD Entered from "TIGAVEG", ’’TIGON", and "S6l.lC" 

Establish "LASTBIAS" (priority 21g) 

Perform "PREREADl" 

Establish "NORMLIZE" (priority 32g) 

Call "READACCS" in 2 seconds 
End of task 

PREREADl Entered from "PREREAD" and "Pll" 

Perform "PIPASR" 

Set bit I(AVEGFLAG) of FLAGWRDl = 1 (means Average-G not to be 

stopped) 

Set bit 15(DRIFTFLG) of FLAGWRD2 = 0 

Set bit 6(V37FLAG) of FLAGWRD7 = 1 (means Average-G running) 

DVTOTAL = 0 

Return 

NORMLIZE Established by "PREREIAD" and entered from "Pll" 

Inhibit interrupts 

R = R T 

— -nl 

V = V T 

- — nl 

T = T 
pptm pptml 

Release interrupts 
TS = R 

Perform "CALCGRAV" 

GDT = GDTl 
GOBL = GOBLl 
End of job 
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READACCS 


Perform "PIPASR" 

PIPCTR = 2 

If bit 2(CMDSTBY) of FLAGWRD6 = 1; 

AOGdPIP = AOG 

AIGdPIP - AIG ("least significant halves" of AOGdPIP 

and AOG respectively, since a double 
precision order is used) 

AMGdPIP - AMG 
ROLLdPIP = ROLLdlSO 

ALFAdPIP ^ ALFAdlSO ("least significant halves" of 

ROLL information) 

BETAdPIP - BETAdlBO 

If bit 12(CMDAPARM) of FLAGWRD6 = 1: 

Call "QUIKREAD" in 0.5 second 
XOLDBUF = XPIPBUF 

XPIPBUF - DELV (loads uncompensated PIPA data as 

read ) 

CMdGYMDT = 5 

Call "SETJTAG" in 1.2 seconds 

If bit l(AVEGFLAG) of FLAGWRDl = 0: (Average-G to be stopped) 

(set 0 by "ISITPOO") 

AVEGEXIT = "AVGEND" 

If bit l(AVEGFLAG) of FUGWRDl = 1: 

Call "READACCS" in 2 seconds 
Establish "SERVICER" (priority 20g) 

Set bit 9(Test connector Outbit) of channel 11 = 1 
End of task 
SERVEXIT 

End of job (after resetting restart group 5 for accelerometer reading) 
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QUIKREAD (Called by "READACCS" if entry DAP is on) 

XOLDBUF = XPIPBUF 
XPIPBUF = PIPA 
If PIPCTR > 0: 

PIPCTR = PIPCTR - 1 
Delay 0.5 seconds 
Proceed to "QUIKREAD" 

End of task 


AVGEND 

IdPIPADT = (least significant half of T , ) 

pptm^ 

Set bit 15(DRIFTFLG) of FLAGWRD2 == 1 
Perform "AVETOMID" 

Perform "PIPFREE" 

MRKBUFl = -256 (i.e. negative non-zero, keeping "RENDl" from using) 

Set bit 9(Test connector Outbit) of channel 11 = 0 
Set bit 2(CMDSTBY) of FLAGWRD6 = 0 

Set bit 6(V37FLAG) of FLAGWRD7 = 0 (Average -G not running) 

If bit 9(UTFLAG) of FLAGWRD8 = 1: 


Set restart groupl to phase 11 (i.e. 1.11, causing "PIKUP20" 
to be established with priority lOg via restart logic) 

Set restart group 2 to phase 0 (i.e. no effect, since inactive) 

If bit 7(RNDVZFIG) of FLAGWRDO = 1: (and UTFLAG = O) 

Set restart group 1 to phase 11 (i.e. 1.11, see above) 

Set restart group 2 to phase I3 (i.e. 2.13, causing "RED0R22" 
to be established with priority lOg via restart logic) 

Proceed to "CANV37" 

SERVXTl 


If bits 12-7 


(Translation hand 


controller complement) of channel 31 ^ 77^ 

8 


Set bit lO(BURNFLAG) of FLGWRDIO = 1 
Proceed to "SERVEXIT" 


(Note that check only done 
once every 2 seconds, not once 
every 0.1 second in RCS DAP). 
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SERVICER 


If one or more components of DELV^^ has magnitude above 
Perform "ALARM" (pattern 0205g) 

Proceed to "AVERAGEG" 


K 


'mxdiv' 


Perform "l/PIPA" 

If bit 3(05GSW) of FLAGWRD6 = 0: 


TTE = TTE2 + T , , 
pptml 

DVTOTAL -= DVTOTAL t K ^ IdELVI 

ppl » - ' 

Proceed to "AVERAGEG" 


(could be incremented twice if 
get a restart) 


AVERAGEG 


Perform "CALCRVG" 
Inhibit interrupts 


R — R , 
- — nl 


V - V , 
- — nl 


T = T 
pptm pptml 

GDI - GDTl 
GOBL = GOBLl 


Release interrupts 

Prpceed to address specified by AVEGEXIT 
CALCRVG 


DELVREF = DELV [REFSMMAT] 

- R + ^ i DELVREF + i GDT) 

TS - R , 

Perform "CALCGRAV" 

V^l = V + DELVREF + ^ GDT + i GDTl 

Return 
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CALCGRAV 


UNITR = unitTS 

XI = - RTX2 (loads with -0 for earth, -2 for moon) 

TS^ = UNITR 

If XI ^0: (i.e. earth) 

SIN0 = TS^ • C 

^ —1 — unitw 

GOBLl = (0.05 - i SIM0^) UNITR + 

2UJ 

■^20 ^ S^tw 

TS^ = GOBLl + UNITR 

GDTl = (K ,, /|TS|^) TS, (denominator formed triple precision, 

-XI then normalized and used double 

precision for division, after which 
answer shifted right before TS 
multiplication) 

Return 

T4RUPT Entered based upon program interrupt #4, controlled by TIME4 
If DSRUPTSW < 0: 


If bit 14 of DSRUPTSW = 1: 

If NOUT = 0, proceed to "NODSPY" 

Perform "DSPOUTSB" : if return to calling address +1, 

proceed to "NODSPY" 
otherwise, proceed 

Set bit 14 of DSRUPTSW = 0 

Set TIME4 to cause program interrupt #4 in 20 ms 
DSRUPTSW - DSRUPTSW + 

Resume 
OUTO = 0 

Set bit 14 of DSRUPTSW = 1 
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(If DSRUPTSW < 0): 

Set TIME4 to cause program interrupt #4 in 20 ms 
DSRUPTSW = DSRUPTSW + 

Resume 

TS = DSRUPTSW 
If TS > 0: 

DSRUPTSW = DSRUPTSW - 1, limited >/ +0 

If Its] - 0: 

DSRUPTSW - 3 

TS^ = DSRUPTSW (program tag for TS^ is RUPTREGl) 

If DSPTADtll is flagged for output (i.e. is negative): (Tag "CURVE") 

Set TS = DSPTAB+11 and DSPTADtll = |DSPTADtlll - 1 

TS = (bits 11-1 of TS) (note if get a restart before DSPTAB+11 

reloaded, "GOPROG" coifLd put IMU into 
DSPTADtll = TS coarse align) 

OUTO = TS + K , 

rtuii 

Proceed to "HANG20" 

If bit 15(DSKIFLAG) of FLAGWRD5 = 0: (Tag here "DSPOUT") 

Proceed to "NODSPOUT" 

If NOUT = 0: 

Proceed to "NODSPOUT" 

Perform "DSPOUTSB" : if return to calling address +1, proceed 

to "NODSPOUT" 
otherwise, proceed 

Proceed to "HANG20" 

NODSPY 

OUTO = 0 
i = 0 
i = i + 1 

DSRUPTSW = DSRUPTSW + 
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If DSRUPTSW < 0: 


Proceed to 3rd line of "NODSFT" 

Set TIME4 to cause program interrupt #4 in (20 i) ms 
Resume 


DSPOUTSB 

NOUT = NOUT - 1 

TS^ = -0 (program tag for TS^ is DSRUPTEM) 

If DSPTABj^gpQj^^ flagged for output (is negative) i 


Remove output flag from DSPTAB 


DSPCNT 


(form absolute value) 


OUTO = (bits 15-11 of + (bits 11-1 of DSPTAB^gpp^ 


Return to calling address +2 (DSKY display sent) 


If DSPCNT > 0: 

DSPCNT = DSPCNT - 1 


Proceed to third line of "DSPOUTSB" 

If TS^ = -0: 

TS^ = +0 
DSPCNT = 10 

Proceed to third line of "DSPOUTSB" 

NOUT = 0 

Return to calling address +1 (No DSKI display sent) 


HANG20 

DSRUPTSW = DSRUPTSW - 22400^ (subtracts 5 scaled B6, and also 

forces bit 14 to be O) 

Set TIME4 to cause program interrupt #4 in 20 ms 

Proceed to "PROCEEDE" 

NODSPOUT 

OUTO = 0 


Set TIME4 to cause program interrupt #4 in 120 ms 
Proceed to "PROCEEDE" 
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PROCEEDE 


TS = channel 32 (bit 14 is PRO key complement) 


If bit 14 of TS i bit 14 (PROCDBIT) of IMODES33: 

Set bit 14(PROCDBIT) of IMODES33 - bit 14 of TS 
If bit 14(PR0CDBIT) of IMODES33 0: 

Establish "PROCKEY" (priority 30g) 


If TS^ = 0, proceed to "OPTTEST" 
If TS^ = 1, proceed to "OPTMON” 
If TS^ = 2, proceed to "OPTTEST" 
If TS^ = 3, proceed to "IMUMON" 
SLAPl (Entered via V36 e) 


(i.e. 1 to 0 binary 
transition) 

(TS^, program notation RUPTREGl, 
has DSRUPTSW from "T/jRUPT" 
before any modification by 
"HANG20") 


Inhibit interrupts 
Perform "STARTSUB" 

DSPTABtll = bits 6(Gimbal lock) and 4(No Attitude) of DSPTABtll, 
and flag for output at next opportunity 

ERCOUNT = 0 

FAILREGti =0 (i = 0 - 2) 

REDOCTR = 0 

Channel 77-0 (i.e. reset restart monitor flip-flops) 

BSRUPTSW = - , 

12b 5 

Proceed to "DOFSTART" 


POFSTART 

ERESTORE = 0 
SMODE = 0 
UPSVFLAG = 0 
Channel 5-0 
Channel 6=0 
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Channel 11 = 0 


Channel 12 = 0 
Channel 13 = 0 
Channel 14 = 0 
WTOPTION = 0 
DNLSTCOD = 0 
NWORm-2 = 0 
DSPFLG+2 = 0 

TRKMKCNT = 0 (Note these cells also used for RATETEMP, eriployed 

VHFCNT =0 in P23 and P24, so this initialization not effective) 

EKTVBACT = 0 

TRATE = 0 

SRATE = 0 

TOLD = 0 

SOLD = 0 

If bits 6 and 4 of DSPTABtll = 112* (coarse align w/gimbal lock) 

Set bits 6(Enable IMU CDU Error Counters) and 4(Coarse Align) 
of channel 12 = 1 


Make all restart groups inactive (by setting PHASEi = +0 and -PHASEi = 
-0 for i = 1 - 6) 

MODREG = -0 (see "DSPMMJB") 

RESTREG = 30000g (i.e. priority 30g) 

IM0DES30 = 37411g (bits 14, 13, 12, 11, 10, 9, 4, and 1 set l) 

OPTIND = -1 

OPTMODES = 00130g (bits 7, 5, and 4 to l) 

IMODES33 = l6000g (bits 13, 12, and 11 to l) 

T5L0C = "T5IDL0C" 

FLAGWRDO = 0 
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FLAGWRDl = bit 12(N0D0P0l) of FLAGWRDl (other bits set O) 

FLAGWRD2 = 0 

FLAGWRD3 - bit 13(REFSMFLG) of FLAGWRD3 (other bits set 0) 

FLAGWRD4 = 0 

FLAGWRD5 = 00200g (bit 8(CMCC0MP) is set l) 

FLAGWRD6 - 00004g (bit 3(05GSW) is set l) 

FLAGWRD7 = 0 

FIAGWRD8 = bits 12(CM00NFLG) , ll(LMOONFLG) and 8(SURFFLAG) of FLAGWRD8 

(other bits set O) 

FLAGWRD9 = 0 

FLGWRDIO = bit ll(HDSUPFLG) of FLGWRDIO (other bits set O) 

FLGWRDll = 0 

Proceed to second line of "DUMMTJOB" 

GOPROG (Entered based on program interrupt #11, for a hardware 

restart (interrupts inhibited before entrance) 

REDOCTR = REDOCTR b 1 

TS = BBANK + SUPERBNK (or'ed into bits 7-5) (BBANK is that when 

restart generated) 

RSBBQ = (TS, QREG) 

Perform "VAC5ST0R" 

TS = Channel 33 

Reset flip-flop bits of channel 33 (bits 15-11, done by write-type order) 
If bit 15 (Oscillator stop complement) of TS — 1: 

If bit 14 (Computer warning complement) of channel 33 = 0: 

Perform "STARTSUB" 

Proceed to "DOFSTART" (conclude in restart loop due e.g. 

to memory parity failure) 

Perform "LIGHTSET" (which may exit to "DOFSTART") 
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If bits 15-11 of ERESTORE 0: 

Perform "STARTSUB" 

Proceed to "DOFSTART" 

If ERESTORE ^ 0 : 

If ERESTORE ^ SKEEP?: 

Perform "STARTSUB" 

Proceed to "DOFSTART" 

EBANK = (bits 11-9 of SKEEP4) 

^SKEEPy "" 

ERESTORE = 0 

Perform "STARTSUB" 

TS =bits 15-14(DAPBIT1, DAPBIT2) of FLAGWRD 6 
Set T 5 LOC according to the following table: 


(Note ERESTORE cell is not 
excluded from normal memory test 
sequence in "ERASLOOP") 


(Tag here "ELRSKIP") 


TS T5L0C 

00 "T 5 IDLOC" 

01^ "REDORCS" 

10^ "REDOT VC" 

II 2 "REDOSAT" 

Set bit 14(INTINUSE) of FIGWRDIO = 0 
TS = (bits 5-4 of OPTMODES) 

OPTMODES = TS + OOlOOg (bit 7, OCDUFBIT, set l) 

TS = bit 6(N0IMUDAP) of IMODES33 

IMODES33 = TS + l 6000 g (bits 13-11 to l) 

TOLD = 0 
SOLD = 0 

DSPTABtll = bits 9(Program alarm), 6 (Gimbal lock), and 4 (No Attitude) 
of DPSTAB+ 11 , and flag for output at next opportunity 

If bit 4 (No Attitude) of DSPTABtll = 1 : 

Perform "SETCOARS" 

Call "CA+ECE" in O.O 6 seconds 
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TS = (bits 9, 5, K, 3, and 1 of IMODES 3 O) (Tag here "NOCOARSE") 

IMODES 3 O = TS + 37000g (sets bits 14-10 to l) 

If bit 7(ENG0NFm) of FLAGWRD 5 = 1 ; 

Set bit 13(SPS Engine On) of channel 11 = 1 
Proceed to "GOPROG 3 " 

ENEMA (Entered from "BAILOUT", "POODOO", "TRACKTRM", and "VERB94") 
Inhibit interrupts 

Perform "LIGHTSET" (which may exit to "DOFSTART" ) 

Perform "STARTSB 2 " 

Set bit I4(INTIMUSE) of FLGWRDIO = 0 

If bits 15-14(DAPBITI, DAPBIT2) of FLAGWRD 6 = 10^: (TVC DAP) 

Call "TVCEXEC" in 0.5 seconds 
Proceed to "GOPROG 3 " 

G0PR0G2 (Entered from "REV 37 " and "ROO") 

Inhibit interrupts 
Perform "STARTSB2" 

Set bit 14(INTINUSE) of FLGWRDIO = 0 
Proceed to "GOFROG 4 " 

G0PR0G3 

If bits 15-I4(DAPBIT1, DAPBIT2) of FLAGWRD 6 = OI 2 : (RCS DAP) 

If bit 5 (TRACKFIjG) of FLAGWRDl = 0: 

Perform "STOPRATE" 

Proceed to "GOPROG 4 " 

GOPROG4 

If PHASE! (- 1 ) (-PHASE!) : (i = 1 - 6 ) 

Perform "ALARM" (pattern 1107^.) 

O 

Proceed to "DOFSTART" 
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Establish "DSPMMJB" (priority 30g) 


Establish appropriate jobs and call appropriate tasks based on 
information in the active restart groups 

If all PHASE! =0: (i = 1 - 6, no active restart groups) 

If bit 15 of MODREG = 0 (i.e. cell not -O) 

Proceed to "GOTOPOOH" (Note "VNFLASH" will put the job in 

core set 0, i.e. "DSPMMJB", to sleep, 
leaving program number display blank) 

Proceed to second line of "DUMMfJOB" 

LIGHTSET (Entered from "GOPROG" and "ENEMA") 

If bit 7 (Mark reject) of channel 16 = 1: 

If bits 5-1 of channel l6 = 22^: (Error reset) 

Perform "STARTSUB" 

Proceed to "DOFSTART" 

If channel 15 = 22^: (Error reset from main panel DSKl) 

Perform "STARTSUB" 

Proceed to "DOFSTART" 


Return 

STARTSUB 

DNTMIOTO = "DNPHASEl" 

Set TIME 5 to cause program interrupt #5 in 40 ms 
Set TIME4 to cause program interrupt #4 in 30 ros 
Proceed to "STARTSB2" 

STARTSB2 

Set bits 7-3 (Operator Errux', Flash, Key Release, TemperaLux’e 

Caution, and Uplink Activity) of channel 11 = 0 (other bits 
left alone) 

Set TIME3 to cause program interrupt #3 in 10 ms 
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Set bits 11-10 (Enable Standby, Test DSKY lights) of channel 13 = 0 
(other bits left alone) 

Set bits 14.(R21MARK) and 12(P21FIAG) of FLAGWRD2 = 0 

Set bit lO(SKIPVHF) of FLAGWRD2 = 1 (flag to "VHFREAD" that got 

restart) 

Set bit 4(MARKFLG) of FLAGWRDl = 0 

Set bit 4(CYC61FIG) of FLAGWRDO = 0 

Set waitlist times to 81.93 seconds 

Set waitlist task starting addresses to "SVCT3" 

PRIORITY. = -0 (i = 0 - 6) 

1 

DSRUPTSW = -0 
NEWJOB = -0 

Make all VAC areas available (by setting VACIUSE = "VACIUSE" 
for I = 1 - 5) 

DSPTAB+i = 2^^ and flag for output at next opportunity (i = 0 - 10) 

(blanks DSKY displays) 

DELAYLOC+i = 0 (i = 0 - 3) 

DJLINK = 0 

DSPCNT = 0 

CADRSTOR = 0 

REQRET = 0 

CLPASS = 0 

DSPLOCK - 0 

MONSAVE = 0 

MONSAVEl = 0 

VERBREG = 0 

NOUNREG = 0 

DSPLIST = 0 
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IMUCADR = 0 


LGYRO = 0 
FLAGWRD4 = 0 
MARKINDX = 0 
EXTVBACT = 0 
NOUT = 11 

SELFRET = "SELFCHK" 

DSPCOUNT = -19 
Return 
GOTOPOOH 

Set bit 7(AUT0SEQ) of FLGWRDIO = 0 

Set restart group 4 to cause a start at next line (tag here "MNKGOPOO") 
Perform "INITSUB" 

Set bit l(XDSPFLAG)of FLAGWRD4 = 0 
Perform "AUTOCHK" 

TS = 3799^ (noun not permanently displayed, but must be non-zero) 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed to previous line 
othervd.se, proceed to previous line 

(An input of XXE vdll cause "V37" entrance from "MMCHANG") 

V37 (Entered from "MMCHANG" or "VERB96" with TS = new program number) 

MMNUMBER = TS 

Set bit 7(AUT0SEQ) of FLGWRDIO = 0 
Set bit 15(PCMANFLG) of FLGWRDIO = 0 
Set bit 9(VHFRFLAG) of FLAGWRD9 = 0 
MRKBUFl = -1 

If bit 13 (REFSMFIG) of FLAGWRD3 =0: 

Proceed to "AUT037" (note that P81-P86 not rejected, and P79 

accepted at this point vdthout P20) 
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If MMNUMBER = 79: 

TEMFMM = MMMUMBER 

Proceed to second line of "REND 3 OS" 

If (MMNUMBER - 79) > 0: 

Set bit 7 (Operator error) of channel 11 = 1 
Perform "RELDSP" 

Proceed to "PINBRNCH" 

If (MMNUMBER - 30) ^ 0: 

Proceed to "AUTO 37 " (Note that should not do this vdth Average-G 

running and RNDVZFIG =0, since do P20 startup 
If (MMNUMBER - 36) 0: and since TEMPMM also used for least significant 

half of GDTl ) 

Proceed to "REND 3 OS" ^ 

Proceed to "AUT037" 

AUT037 (Entered from "AUTOSET", "P85", "REND 3 OS", and "V37") 

RESTREG = 30000g (i.e. priority 30g) 

TOLD = 0 
SOLD = 0 
TRATE = 0 
SRATE = 0 

Set bit 14(P24FLAG) of FLAGWRD 9 = 0 
If bit 6 (IMUNITBT) of IMODES 3 O = 1: 

Perform "ALARM" (pattern 1520g) 

Perform "RELDSP" 

Proceed to "PTNRRNCH” 

If bit 7 (ENGQMFIG) of FLAGWRD5 = 0: 

If bits 15-14(DAPBIT1, DAPBIT2) of FLAGWRD 6 i 10^: 

Proceed to "ISITPOO" (not TVC DAP) 

Perform "SPSOFF" (exits with interrupts inhibited) 
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Perform "MSSPROP" 


Set TIME5 to cause program interrupt #2 in 3.1 seconds 
T5PHASE = 16074 (i.e. positive non-zero) 

Set bit 3 of RCSFIAGS = 1 
T5L0C = "RCSATT" 

Set bits 15-14 (DAPBITl, DAPBIT2) of FLAGWRD6 = 01^ 

Perform "TVCZAP" 

MMNUMBER = 0 
Release interrupts 

Delay O.O 5 seconds (by putting job to sleep via "DELAYJOB") 

Channel 5=0 
Channel 6=0 
Proceed to "ISITPOO" 

INITSUB (Entered from "GOTOPOOH" and "ROO") 

Inhibit interrupts 

Set bit 1(P29FLAG) of FLAGWRDO = 0 

Set bit 6(IDLEFAIL) of FLAGWRDl = 0 

Set bits 12(P21FLAG), ll(STEERSW), and 9(IMPULSW) of FLAGWRD2 = 0 
Set bits 14(GL0KFAIL) and 9(P00FLAG) of FLAGWRD3 = 0 
Set bits 12(P23CALIB), lO(NEWTFLAG), and 7(ENG0NFLG) of FLAGWRD5 - 0 
Set bit 13(STRULLSW) of FLAGWRD6 = 0 

Set bits 13(IGNFLAG), 12(ASTNFLAG) , and ll(TIMRFLAG) of FLAGWRD 7 = 0 
Set bits 15(SWT0VER) and 11(V94FLAG) of FLAGWRD 9 = 0 
Proceed to "INITSUBA" 

INITSUBA (Entered from "INITSUB", "ROO", and "TRACKTRM") 

Inhibit interrupts 

If bit 5(TRACKFLG) of FLAGWRDl =0: 

Perform "STOPRATE" 
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(If bit 5(TRACKFKi) of FIAGWRDl = O): 

If bit I2(MAXDBFLG) of FUGVJRD9 = 1: 
Perform "SETMAXDB" 

If bit 12 (MAXDBFLG) of FIAGWRD9 = 0: 
Perform "SETMINDB" 


Release interrupts 


OPTIND = -1 

Return (to caller of "INITSUB" or "INITSUBA") 
ISITPOO 

If MMNUMBER 7 ^ 0: 

If bit l(NODOV37) of FIAGWRD2 = 1: 

Perform "ALARM" (pattern 1520g) 

Perform "RELDSP" 

Proceed to "PINBRNCH" 


TS, = K „„ 

1 nov37ni 

If (bits 7-1 of K 


primes. 


(Tag here "CHECKTAB") 
) ^ MMNUMBER: 


If (bits 7-1 of K ) > MMNUMBER: 

Set bit 7(0perator error) of channel 11 
Perform "RELDSP" 

Proceed to "PINBRNCH" 


If TS^ = 0: 

Set bit 7(0perator error) of channel 11 = 1 
Perform "RELDSP" 

Proceed to "PINBRNCH" 


TS^ = TS^ - 1 

Proceed to 7th line of "ISITPOO" (check next table entry) 
MINDEX = TS^ 

Set bit 15(V50NieFL) of FLAGWRD 3 = 1 
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If bit 6(V37FIAG) of FLAGWRD7 = 1: 


( Average -G running) 


Set bit l(AVEGFLAG) of FLAGWRDl = 0 

End of job (goes to "CANV37" from "AVGEND") 

Proceed to "CANV37" 

CAMV37 

CADRFLSH+2 = "ROO" + 3 

Set restart group 4 to phase 1 (4.1, causing "INITDSP" to enter 
"ROO" if a restart) 

Proceed to "ROO" 

ROO 

Perform "INTSTALL" 

Set bits 10 (Caution Reset) and 9 (Test connector Outbit) of 
channel 11 = 0 

Set bits 14(S4B Cutoff), 13(S4B Injection Sequence start), 

ll(Disengage optics DAC), 10(Zero optics), 8(TVC enable), 

3 (Enable star tracker, not used), and 2(Enable Optics CDU 
Error Co\mters) of channel 12 = 0 

Set bits 9 (not assigned) and 8 (not assigned) of channel 13 = 0 

Perform "INITSUB" 

Perform "CLEARMRK" 

STARIND = 0 

Set bit 14(STIKFLAG) of FLAGWRDl = 0 (V50N18FL = 1 from "ISITPOO" 

unless POO selected) 

Set bit 3 (Uplink Activity) of channel 11 = 0 

Set bit 14(R21MARK) of FLAGWRD2 = 0 

If MMNUMBER = 0: 

Perform "RELDSP" (tag here "POOH") 

PHSPRDT2 = 05000g (i.e. priority 05g) 

Set bit l(NODOV37) of FLAGWRD2 = 0 

Set restart group 2 to phase 5 (i.e. 2.5, causing "STATINTl" to 
be established with priority 05 g by restart logic) 
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(If MMNUMBER = O); 

Set bits 8(IMUSE) and 7(RNDVZFLG) of FLAGWRDO = 0 
Set bit 9(UTFLAG) of FLAGWRD8 = 0 
DNLSTCOD = 0 
If MMNUMBER > 0: 

If bit 7(RNDVZFLG) of FLAGWRDO = 0: (Tag here "NOUVEAU") 

If bit 9(UTFLAG) of FLAGWRD8 = 0: 

Set bit 8(IMUSE) of FLAGWRDO = 0 

DNLSTCOD = (bits 15-13 of K ), cycled left 3 places 

P™^MINDEX (i.e. to bits 

3-1) 

DSPFIO+2 = 76657rt (includes setting bit 4 and 6, either one of which 

causes "NORMRET" to bypass establishing "PLAYJUMl") 

Set bits lO(lMTlG), 7(UPDATFLG), and 5(TRACKFLG) of FUGWRDl - 0 

Set bit 2(R67FLAG) of FLAGWRD8 = 0 

Make restart groups 3, 5, and 6 inactive 

If MMNUMBER = 0: 

Make restart groups 1,3^4, 5, and 6 inactive (leaving only group 
2 set, to 2.5, for "STATINTl") 

Perform "INITSUBA" (TRACKFLG now zero, so "STOPRATE" etc.) 

MODREG = MMNUMBER 

Proceed to "G0PR0G2" (restart group 2 will cause "STATINTl" 

to be established) 

If MMNUMBER = 20: (Tag here "RENDVOO") 

If MODREG = 20: 

Make restart group 1 inactive (Tag here "KILL20") 

Perform "INITSUBA" 

Make restart group 2 inactive 
Proceed to "REV37" 
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(If MMNUMBER = 20): 

If bit 9(UTFLAG) of FIAGWRD8 - 0: 

If bit 7(RNDVZFLG) of FIAGWRDO = 1: 

Set bits 7(UPDATFLG) and 5(TRACKFIG) of FLAGWRDl = 1 

(Tag here "STATQUO") 

Make restart group 4 inactive (leaves 1 and 2 set by 
e.g. "AVGEND") 

MODREG - MMNUMBER 

Proceed to "G0PR0G2" ("RELDSP" effect done in 

"STARTSB2" cell resets) 

If bit 9(UTFLAG) of FLAGWRD8 = 1: 

Set restart group 2 to phase 5 (i.e. 2.5, to cause 

"STATINTl" to be established with priority 05^ by 
restart logic) (Tag here "STATQUOl") 

Set bit 5(TRACKFLG) of FLAGWRDl - 1 

Make restart group 4 inactive 

MODREG = MMNUMBER 

Proceed to "G0PR0G2" 

If bit 9(UTFLAG) of FLAGWRD8 = 1: (Tag here "POOFIZZ") 

Make restart group 2 inactive 
Proceed to "REV37" 

If bit 7(RNDVZFLG) of FLAGWRDO = 1: 

Proceed to "REV37" 

Make restart group 1 inactive 
Perform "INITSUBA" 

Make restart group 2 inactive 
Proceed to "REV37" 

REVS 7 

CADRFLSffl-2 = "V37XEQ" + 3 (Group 4-1 set from "CANV37") 

Proceed to "G0PR0G2" (restart logic will cause "V37XEQ" to be 

entered via "INITDSP") 
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V37XEQ. 


Inhibit interrupts 

PHSPRDT4 = 13000g (i.e. priority 13g) 

MMTEMP = K 

BASETEMP = ^ 

fcaditiMijjDEX 

TS^ = (bits 15-11 of BASETEMP) + (bits 10-8 of MMTEMP, shifted 
right 7 places) 

TS^ = (bits 10-1 of BASETEMP) + 2000g 

Establish a VAC area job, with starting address given in 2CADR 
format by (TS^, TS 2 ), and with priority of 13g 

TS = (bits 7-1 of MMTEMP) and perform "NEWMODEX" 

Perform "RELDSP" 

End of job 
P06 

Set bit l(NODOV37) of FLAGWRD 2 = 1 
Inhibit interrupts 
TIME2SAV = T 

now 

Perform "SCALPREP": if return to calling address +1, proceed 

to second line of "PO 6 " 
otherwise, proceed 

SCALSAVE = TS , 
dp 

Set bits 5(TRACKFL0) of FLAGWRDl, 15(DRIFTFLG) of FLAGWRD2, and 
13(REFSMFLG) of FLAGWRD3 = 0 

Set bit 8 (IMUSE) of FLAGWRDO = 0 

Set bit 7(RNDVZFLG) of FLAGWRDO - 0 

Set bit 9(UTFLAG) of FLAGWRD 8 = 0 

Set bit 11 (Enable Standby) of channel 13 = 1 

Set restart group 4 to cause it to establish "POSTAND" with 
priority 20 g after a restart (erasable memory restart) 
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TS = 00062g 

Proceed to "GOPERFl" if terminate, proceed to previous line 

if proceed, proceed to previous line 
otherwise, proceed to previous line 

POSTAND Entered after a restart (e.g. power-up) due to "P06" settings 
for restart group 4 

Set bit ll( Enable Standby) of channel 13 = 0 


Inhibit interrupts 

T =0 
now 

Perform "SCALPREP" : if ret\irn to calling address +1, proceed to 

second line of "POSTAND" 
otherwise, proceed 

TS = TS - SCALSAVE, rescaled to B28 centi-seconds, with sign agreement 

forced 

If TS^-0: 

TS = TS + 2^3 centi-seconds (correct for channel 3 overflow) 

TS = TS + TIME2SAV, with sign agreement forced 


T = T + TS 
now now 

Set bit l(NODOV37) of FLAGWRD2 = 0 


Proceed to "GOTOPOOH" (where restart group 4 is set) 


SCALPREP 


TS, = (Channel 3, Channel 4) Channel 4 read twice, then a 3rd 
^ time if 2 readings disagree . The 

channel 3 reading not done until 
channel 4 +MAX, 

Release interrupts 




+ K 

rndbt 


If bits 5-1 of TS+1 = 0, return to calling address +1 (Channel 4 

was read in first interval after 
Tnow incremented) 

Set bits 5-1 of TS+1 = 0 


Return to calling address +2 


DELAYJOB 


i = 3 
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If DELAYLOC+i f 0: 

If i = 0: 

Proceed to "BAILOUT" (pattern 31104^) 
i = i - 1 

Proceed to second line of "DELAYJOB" 

Call "WAKER" in (delay time) centi-seconds, with EBANK = i 
DELAYLOC+i = Retxirn address (to routine calling "DELAYJOB") 
Put present job to sleep (starting address id = DELAYLOC+i) 

WAKER 

i = EBANK (mechanized by using BBANK with FBANK of "WAKER" 
Set DELAYLOC+i = 0 and TS = DELAYLOC+i 
Awaken job with starting address id = TS 
End of task 
ALARM 

Inhibit interrupts 

ALMCADR = "Calling address +1" (S-register portion) 

Proceed to "ALARM2" 

ALARM2 

LREG = Alarm pattern (quantity in calling address +l) 
ALMCADR+1 = BBANK + SUPERBNK (or'ed into bits 7-5) 

If FAILREG+0 = 0: 

FAILREG+0 = LREG 
Skip next 2 lines 
If FAILREGtl = 0: 

FAILREG+l = LREG 
FAILREG+2 = LREG 

Set bit 9(Program alarm) of DSPTAB+11 = 1, and flag for output 
at next opportunity 
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Release interrupts 

Return (to routine calling "ALARM" or "ALARM2") 

PRIOLARM (Entered from "COM52" for alarm 0404g) 

Inhibit interrupts 

LREG = TS (alarm pattern) 

ALMCADR = "Calling address +1" (S-register portion) 

ALMCADR+1 = BEAM of caller + SUPERBNK (or'ed into bits 7-5) 

Perform "ALARM2" (starting at 3rd line) 

TS = 0509 

vn 

Proceed to "PRIODSPR" (will return to routine calling "PRIOLARM") 
VARALARM 

Inhibit interrupts 
LREG == TS 

ALMCADR = "Calling address +1" (S-register portion) 

Perform "ALARM2" (starting at 2nd line) 

Return (address in ALMCADR) 

BAILOUT 

Inhibit interrupts 

ALMCADR = "Calling address +1" (S-register portion) 

Perform "VAC5ST0R" 

IREG = Alarm pattern (quantity in calling address +l) 

Perform "ALARM2" (starting at second line) 

Inhibit interrupts 

If in interrupt mode, return to job status (set appropriate address 
into cell 0017g and then do a Resume) 

Proceed to "ENEMA" 
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POODOO 


Inhibit interrupts 

ALMCADR = "Calling address +1" (S-register portion) 

Perform "VAC5ST0R" 

LREG = Alarm pattern (quantity in calling address +1) 

Perform "ALARM2" (starting at second line) 

If bit 6(V37FLAG) of FLAGWRD7 = 0: (i.e. Average-G not running) 

If (bits 13-1 of EXTVBACT) = 0: (error if bit 15 l) 

Set bit 5(STATEFLG) of FUGWRD3 = 0 
Set bit 7(AUT0SEQ) of FLGWRDIO = 0 
Set bit 13(INTGRAB) of FIGWRDIO - 0 
Set bit 9(UTFLAG) of FLAGWRD8 = 0 
Set bit 7(RNDVZFLG) of FLAGWRDO = 0 
Set bit 5(TRACKFLG) of FLAGWRDl = 0 
Set bit l(NODOV37) of FLAGWRD2 = 0 

Make all restart groups inactive (by setting PHASE! = +0 
and -PHASE! = -0 for i = 1-6) 

Inhibit interrupts 

If in interrupt mode, return to job status (set appropriate address 
into cell 0017^ and then do a Resume) 

Proceed to "ENEMA" 

SVCT3 (This task is used as part of the waitlist control, and is 
entered every 81.93 seconds for that purpose) 

If bit 15 (DRIFTFLG) of FLAGWRD2 = 0: 

End of task 

If IMUCADR = +0: 

Establish "NBDONLY" (priority 35g) 

End of task 
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Delay 5 seconds 
Proceed to "SVCT3" 

DUMMY JOB This routine is entered from the executive system if 

no active jobs are found. 

NEWJOB = -0 

Release Interrupts 

Set bit 2(Computer Activity) of channel 11 =0 
Proceed to second line of "CHECKNJ" 

CHECKNJ 

SELFRET = Return address 
If NEWJOB = -0: 

Return (to address specified by SELFRET, BBCON of "SELFCHK") 
Set bit 2( Computer Activity) of channel 11 = 1 
Perform functions necessary to start new job's computations 
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Quantities in Computations 

See also list of major variables and list of routines 


IdPIPADT: See IMU Computations. 

AIG: See Digital Autopilot Entry Routines. 

AIGdPIP: Value of AIG sampled in "READACCS", i.e. the value of CDU 
sampled about 0.05 seconds before accelerometers read, scale ^ 
factor B-1, \inits revolutions, single precision. Program notation 
is "AIG/PIP". 

ALFAdlSO: See Entry Computations (quantity is updated in "ATTRATES"). 

ALFAdPIP: Value of ALFAdlSO sampled in "READACCS", scale factor B- 1 , 
units revolutions, single precision. It is computed based upon 
the same angle sample as for AIGdPIP. Program notation "ALFA/PIP" . 

AIMCADR, ALMCADR+ 1 : Pair of erasable memory cells used to store the 
information on the calling address to the "ALARM" type routines 
(including "BAILOUT" and "POODOO"). Information is in 2CADR 
format (see 3420.5-2?), with ALMCADR giving S-register information 
and ALMCADR+1 giving BBCON (i.e. BBANK and SUPERBNK) information. 
Cells can be displayed by NOS to permit identification of the 
specific area of the program responsible for the generation of the 
fault condition. 

AMG: See Digital Autopilot Entry Routines. 

AMGdPIP: Value of AMG sampled in "EEADACCS", i.e. the value of CDU^ 
sampled about 0.05 seconds before accelerometers read, scale 
factor B-1, units revolutions, single precision. 

AOG: See Digital Autopilot Entry Routines. 

AOGdPIP: Value of AOG sampled in "READACCS", i.e. the value of CDU^ 
sampled about 0.05 seconds before accelerometers read, scale 
factor B-1, units revolutions, single precision. 

AVEGEXIT: Cell containing in 2 CADR format the starting address of the 
computations to be performed after "AVERAGEG" is done (program 
notation also AVGEXIT). It is set to "AVIEND" by "READACCS"; to 
"CALCN83" by "TIGON" ; to "CALCN85" by "P40RCS" and "P40SXTY"; 
to "CM/POSE" by "P62"; to "SERVEXIT" by "P67.1", "POST 4 I", 

"S61.1C", and "TIGNOW"; to "SIVBCOMP" by "P15J0B" ; to "S 4 O. 8 " by 
"P 4 OSXTY"; and to "VHHDOT" by "Pll" . 

BASETEMP: Cell used in "V37XBQ" to store temporarily the appropriate value 
of K for use in generating starting address information for the 

job CS^e initiated by V37 processing. 
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BBANK: A computer hardware cell (address 0006g) containing in bits 15-11 
the fixed memory bank (FBANK) currently being used and in bits 3-1 
the erasable memory bank number. Bits 7-5 of the constants in 
the proper format for BBANK loading can contain SUPERBNK information, 
and constants in this format are referred to as "BBCON" format 
( see 3420 . 5-27 ) . The fact that the program retains BBANK information 
is used in "DELAYJOB" to retain the indexing data for the 
DELAYLOC cell employed (since in that routine the erasable memory 
bank is not significant and the fixed memory bank number is 00). 

BETAdlBO: See Entry Computations (quantity is updated in "ATTRATES"). 

BETAdPIP: Value of BETAdlSO sampled in "READACCS", scale factor B-1, 
units revolutions, single precision. Cf. ALFAdPIP. 

— unitw* EJ^S'Sable memory vector constant, scale factor BO, program 
notation "UNITW". It gives the polar axis in the reference 
coordinate system. The x component (also called "-AY0" in the 
program) gives the "true to mean pole rotation about the -Y axis;" 
the y component (also called "AKO" in the program) gives the 
"true to mean pole rotation about the +X axis." 

CADRFLSH+2: See Display Interface Routines. 

CADRSTOR: See Data Input/Output. 

CLPASS: See Data Input/Output. 

CMdGYMDT: See Digital Autopilot Entry Routines. 

DELAYLOC+i (i = 0 - 3): Set of four single precision cells used to 

contain the starting address identifications for Jobs put to sleep 
using "DELAYJOB", in FCADR format. If an attempt is made to put 
more than 4 Jobs to sleep using the routine, a software restart 
(pattern 31104 q) is produced. 

DELVREF: Value of accelerometer output (scaled and compensated) converted 
to reference coordinates, scale factor B7, units meters/centi- 
second. 

DNLSTCOD: See Telemetry. 

DNTNGOTO: See Telemetry. 

DSPCNT: Single precision counter used to cycle through the DSPTAB- 
(i = lO-O) to be changed in "DSPOUTSB", scale factor BI 4 . The 
DSPTABj_ word loaded at one entrance to "DSPOUTSB" is the first one 
checked at the next entrance, but that word will not be checked 
again until all the other words have been examined and, if necessary, 
loaded into OUTO. 

DSPCOUNT: See Data Input/Output. 
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DSPFLG+-2: See Display Interface Routines. 
DSPLIST, DSPLOCK: See Data Input /Out put . 


DSRUPTSW: Single precision cell that is used for control of the computations 
that are performed when "T/4RUPT" is entered. If it is not negative 
non-zero when "Ti4E,UPT" is entered, it contains a number between 3 snd 
0, scale factor BI4, used to control the branching at the end of 
"PROCEEDE" so as to complete a cycle (3 through 0 and back to 3 
again) in O.48 seconds. If the cell is negative non-zero, bits 2-1 
contain the same "T4RUPT" branching control ("PROCEEDE" is entered and 
these bits employed every 0.12 seconds), while bits 12-9 contain, 
scale factor B6, the complement of the number of 20-millisecond intervals 
still be to loaded into TIME4 to achieve synchronism with the basic 
T4RUPT period of 0.12 seconds. Bit 14 is used to achieve an alternate 
selection of clearing OUTO or loading new information into OUTO. 

If OUTO was loaded with a non-zero value when the basic 0.12-second 
T4RUPT cycle was performed, then DSRUPTSW is set (in "HANG20") 
to DSRUPTSW - 22400g, where the first "2" causes bit 14 to be 
set 0 (note that computation same as adding 55377g)j and the "24" 
is 5 with scale factor B6, signifying that five more 20-ms loadings 
of TIME4, plus the current one, are needed to satisfy the 0.12 
second synchronism. If "HA.NG20" is entered, TIME4 is set to generate 
another interrupt in 0.02 second. When it is received, bit 14 of 
DSRUPTSW will be 0, so OUTO will be cleared, bit 14 set to 1, and 
TIME, 4 reset to 20 ms. In addition, DSRUPTSW is incremented by 


K 


for a negative DSRUPTSW, represents a magnitude of 0) . The 
next time the interrupt is generated, bit 14 will be one in 
"T4RUPT", so a new OUTO can be generated if required (if not, the 
number of remaining 20-ms intervals is determined and TIME4 and 
DSRUPTSW loaded immediately) . In order to load all 11 (DSPTAB+O - 
DSPTA&tlO) DSKY display registers, a total time of 11 x O.O4 = 
0.44 seconds is required (measured from the first loading of the 
first register to the end of the 20 ms wait after reset of OUTO 
for the last register). As part of a verb 36 fresh start, 

DSRUPTSW = - K. ^ , to force clearing of all DSPTAB-driven relays 

(bit 14 = 1 due to this setting, of coirrse) before starting the 
normal T4RUPT 0.12-second cycle. 


(making the upper bits equivalent to -4B6, since bit 14-1, 


DVTOTAL: Sum of magnitudes of scaled and compensated DELV each two- 
second entrance to "SERVICER", scale factor B7, units meters/ 
centi-second. Quantity is initialized to 0 in "PREREADl", and 
can be displayed in R3 of N40 (XXXX.X fps) or N80 (XXXXX. fps). 
It is the "line integral" of accumulated velocity, not the 
magnitiide of the velocity vector increment: the magnitude is 
taken each two-second Average-G cycle of DELV and this scalar 
is added to DVTOTAL. 


EBANK: See Data Input/Output. 
ERCOUNT: See Testing Routines. 
ERESTORE: See Testing Routines. 
EXTVBACT: See Verb Definitions. 
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FAILRBG+i (i = 0 - 2): Set of three single precision cells used to 
retain alarm pattern code information. They are all reset to 
zero by a verb 36 fresh start (or V25N9E E E E), and they can be 
displayed by the use of noun 09 . Use of the error reset DSKY key 
causes FAimEG+0 and FAILREG+1 to be reset zero (FAILREG+2 is 
left alone). FAILEtEG+O contains the first alarm pattern received 
after the reset; FAILflBG+1 contains the second; and FAILREG+2 
always has the most recent (and hence would be the same as FAILRBG+0 
if one alarm has occurred, or FAILREG+1 if only two alarms have 
occurred). If FAILREG+0 =0, then no alarms have occurred since 
the last error reset, and the alarm to occur most recently is in 
FAILREG+2. 

GDT: Value of gravity times computing interval, scale factor B8, units 
meters/centi-second . Program notation is "GDT/2", in recognition 
of the fact that it is "g GDT" for a standard velocity scaling of 
B7 meters/centi-second. When "CALCRVG" is first entered, the 
quantity in GDT is the value computed the previous computation 
cycle. 


GDTl; Value of gravity times computing interval computed in "CALCGRAV", 
same scaling and units as GDT (program notation "GDTl/2"). 

GOBL: Value of "normalized" oblateness component of gravity computed 
for earth-centered computations only. Must be multiplied by 
- p. /r2 to convert to units of acceleration. It is used in 
"S4O.9" to correct output of Lambert routine (for earth-centered 
computations). Program notation "GOBL/2". Loaded with GOBLl 
whether earth-centered or moon-centered, but not used in 
"S4O.9" for moon-centered. Scale factor Bl, dimensionless. 

GOBLl: Value of GOBL computed in "CALCGRAV", same scaling as GOBL 
(program notation "GOBLl/2"). 

IMODES3O, IMODES33: See IMU Computations. 


IMUCADR: See IMU Computations. 

INLINK: See Data Input/Output . 

Ktw: Single precision constant, program notation "BIT9", scale factor 
B6, value 00400g, corresponding to 1 x 2 used to increment 
DSRUPTSW for 20-ms OUTO update rate (cf. DSRUPTSW) . 



Constant, program notation "2J", ^ 

3.24692OIE-3 X 2-^. Value corresponds to 2 x l.D234oUu:3iii-;5 x 
2^ where first term is an equation factor of 2, second is the 
no min al value of the computer-employed first gravitational 
harmonic coefficient (note that the "standard" value, such 
as that employed in ^^2 Orbital Integration, is 1.62342 
and third is scale factor. Octal value corresponds to a 
harmonic coefficient value of about 1.6234554E“3 • 
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^2s22‘ program notation "2SEC(22)", scale factor B22, units 

centi-seconds . Value is 200 x 2 ~^^, corresponding to a value 
of 2 seconds. 

^12b5' precision constant, program notation "PRI012", scale 

factor B6, value 12000^, corresponding to 24 x 2 ~° . It is 
used to initialize DSRUPTSW to ensure clearing of all DSPTAB 
registers for a V36 fresh start (see DSRUPTSW): it forces 12 
sets of OUTO settings (DSPTABtll and then remaining DSPTAB 's) 
and subsequent OUTO = 0 settings before starting the normal 
T4RUPT 0.12-second cycle, hence the notation. 

KpOi* Constant, program notation ''20J", scale factor B-1, value 

3.24692OIE-2 X 2^. Value corresponds to 20 x I.62346OO5E-3 x 
2^, where first term is an equation factor of 20 (to give a 
net effect of "1 - 5 SIN02ii for the factor it multiplies), 
second is the nominal value of the computer-employed first 
gravitational harmonic coefficient (cf. ^2 ^), and third is 
scale factor. Octal value corresponds to a harmonic coefficient 
value of about I.62346OO9E-3 . 

K„ , : Table of fixed-memory starting addresses used in "V37XEQ" to 

fca m^ BASETEMP, arranged in FCADR format (bits 15-11 give the 
fixed-memory bank and bits 10-1, when added to 2000g, give 
S-register contents). Program notation for first cell in 
table (i = 0) is "FCADRMMl" . 

K ,, : Constant, program notation "-MUDT(E)", scale factor B44> 

"™^^0 units meters^/centi-second. Value is -7 . 97?0645E12 x 2"^, 
corresponding to -1 x 3 .986O3225EIO x 200 x 2 where first 
term is an equation factor to give proper sign of result, second 
is value of |k)- (for time in centi-seconds) for the earth, third 
is computing interval of two seconds expressed in centi-seconds, 
and fourth is scale factor. 

K ,, : Constant, program notation "-MUDT(M)", scale factor B44 j 

2 units meters^/centi-second . Value is -9. 805556E10 x 2 
corresponding to -1 x 4.902778E8 x 200 x 2“^^, where first term 
is an equation factor to give proper sign of result, second is 
value of (for time in centi-seconds) for the moon, third 
is computing interval of two seconds expressed in centi-seconds, 
and fourth is scale factor. 

^mxdlv' precision constant, program notation "-MAXDELV", scale 

factor BI4, units accelerometer counts. Stored value is -6398 x 
2l^; used in program in such a way that an effective value of 
6399 is employed, giving an alarm (at the start of "SERVICER") 
if an accelerometer output of 64OO pulses for 2 seconds (i.e. 

3200 pps) is received. 
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K 


no‘v37ni‘ 


Single precision constant, program notation "NOV37MM", scale 
factor 514, giving the number of table entries mintis 1 in 
Kprmi (and associated V37 tables) for new programs that can be 

starte^d by the V37 logic (incl\jding the minimum key rendezvous driver 


programs, but excluding POO). Value 
decimal 38 (meaning 39 programs). 


is 00046 g, corresponding to 



Constant, program notation "KPIPl", scale factor B-7, \inits 
meters/centi-second per accelerometer count. Value is 0.07488, 
corresponding to 5-85 x 10“^ x 10“^ x 2 , where first term is 
nominal accelerometer scale factor in units of centimeters/second 
per count, second converts to meters, third converts to centi- 
seconds, and fourth is scale factor. 


K ^ ; Table of program information used in association with V37 program 
^ i changes. Table is arranged in order of decreasing program numbers 
(a higher i is a lower number), with first cell having program 
notation "PREMMl" . Bits 7-1 of the cell give the program number 
(since program numbers are in decimal, seven bits are necessary to 
represent numbers above 63 ); bits 10-8 are the erasable memory 
bank number (required when the job is established); and bits 15-13 are 
the job's required DNLSTCOD setting for telemetry. See information below. 


^resq* Constant, program notation "EESQ", scale factor B59j units 
meters^. Nominal value is 40.6809913^12 x 2“^°, where the 
decimal portion corresponds to the square of 6 37® I 65.2 meters. 
Octal value is OOOOlg 05000g, however, which corresponds to 
the square of about 6 378 238.8 meters. 


Krndbt* Single precision constant, program notation "BIT5", scale 
factor (as used) B23, units centi-seconds. Value is 
00020rt, corresponding to (as used, i.e. added to the least 
significant half of channel 4 time information) 0.5 centi- 
seconds. Used to account for the fact that channel 4 bits 5-1 
"read 20^ for the first interval after a TIMEl increment", 
thus causing bit 6 of channel 4 to be Incremented 5 nis out of 
phase with TIMEl increments. 

K , (i = 0 - 11 ): Table of single precision constants, program notation 
rtUi iirelTAB", containing in bits 15-12 the required values to be loaded 
into bits 15-12 of OUTO for DSPTAB. . Value in these bits is (i + l) . 
Bit 11 is zero. The least significant 5 bits of these same constants 
are used for (see Data Input/Output) . 

LGTRO: See IMU Computations. 

LREG: Computer "L" register (address OOOlg), used to retain alarm pattern 
information in alarm-generation package. 

MARKINDX: See Optics Computations. 
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MINDEX: Single precision cell, scale factor B14, used to select the 
appropriate table entries for a V37-selected program change 
(loaded based on equality of MMNUMBER and bits 7-1 of K 
with the value of i ) . prml^ 

MMNUMBER: Single precision cell, scale factor B14, used to retain the 
desired new program number for a V37 program change (it is the 
number entered in "MMCHANG" or is 0 if "V37" entered from "VERB 96 "). 
If the TVC DAP or SPS engine-on are indicated, it is set 0. 

MMTEMP: Single precision cell loaded in "V37XEQ" with the value of the 
appropriate K for use in generating appropriate information in 
connection witnfhe job to be established by V37 processing. 

MONSAVE, MONSAVEl: See Data Input/Output. 

MRKBUFl: See Optics Computations. 

NEWJOB: Cell set positive non-zero to indicate that a job of higher 
priority than the one presently being performed (the "DUMMIJOB" 
loop has minimum priority) has been established and is awaiting 
execution. Cell 0067g is used for the word, and must be addressed 
periodically in order to avoid generating a hardware restart (see 
hardware documentation for details). 

NOUNREG: See Data Input/Output . 

NOUT: Single precision cell, scale factor BI 4 , used to provide a coixnt of 
the number of DSPTAB display outputs (DSPTABtO - DSPTABtlO) that 
are remaining to be changed: if it is non-zero but none are to be 
changed, it is set 0. 

NVWORD+2: See Display Interface Routines. 

OPTIND: See Optics Computations. 

OPTMODES: See Optics Computations. 

OUTO: Computer output channel 10, used to transmit relay driving 

information to the display system. Bits 15-12 specify the group 
of relays to be driven, while bits 11-1 specify their new state. 

PHASEi, -PHASEi (i = 1 - 6): Set of cells used to contain program octal 
"phase" information, used to control program restarts (each "i" 
is called a "group"). To check the validity of erasable memory 
information (and the phase information itself), a check is made 
that the information in PHASEi, when complemented, is the same 
as the information in -PHASEi (for all i). A setting of +0 for 
PHASEi means that the group restart controlled by that cell is 
"inactive" (see Section VIIC of 3420.5-27 for details of restart 
logic computations not covered in this writeup) . In the interests 
of avoiding excessive detail (since the "normal" mode of operation 
of the computer system does not require restarts), most of the 
settings for restart groups are not shown in the writeups, 
although settings in some cases form an integral part of the 
program control logic, and hence are shown in such cases. 


o 


O 
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As a general giiide to allocation of restart groups, the following 
areas where each group is used are supplied as a partial list: 

# 1 : P20 (setting to 1.11 causes "PIKUP20" to be entered). A setting 
to 1.7 is done in "CHKLINUS" for R 6 l-specified R 60 maneuver. A 
setting to 1.5 is used to protect "S 4 O. 9 '' (set by "SETUP.9"), 
which of course only occurs with Average-G on, when P20 doesn’t 
run. If "ROO" concludes that P20 should not run, it resets 
group 1 to inactive, thus over-riding the "AVGEND" setting. 

#2: Orbital integration (including the periodic state vector 
update started by "STATINTl" for a 2.5 setting). A setting 
of 2.7 causes "R22" to be established, and 2.13 causes 
"RED0R22" to be established (the latter setting is done by 
"AVGEND", and written over by "ROO" if necessary). Group 2 
is also used for protection within the R22 computations, 
which are done at sufficiently high priority that they would 
not be expected to be interrupted by mission programs except 
while R22 is performing "WAITONE" . Restart priority lower 
than that at which job runs to permit mission programs to set 
e.g. TRACKFIG. A 2.11 setting is done by "VERB94" for P23 
computations (to permit "V94ENTER" to be established while 
getting rid of e.g. R 52 if it happens to be running in P23 then). 

#3: "S40.13"; "PH"; "EMGINOFF". 

#4: All V37-selectable programs except POO (and also other mission 
program sequences running outside of Average-G cycle, such as 
"P 65 .I"); "GCOMPVER"; "AZMTHCGl" . Also V37 processing itself. 

#5: "READACCS" (and subsequent "SERVICER" computations); Prelaunch 
alignment . 

# 6 : "CLOKTASK"; Entry autopilot; P27; "S 4 O. 6 " (via "PRE 4 O. 6 "). 

PHSPRDT2: Single precision erasable memoir cell used to contain 

priority or time information for erasable memory restarts using 
group 2 (see Section VIIC of 3420.5-27). It is set to indicate 
priority 05g for POO selection in "ROO" in order to achieve 
proper priority information for group 2 use in the periodic POO 
orbital integration. 

PHSPRDT4: Single precision erasable memory cell used to contain 

priority or time information for erasable memory restarts using 
group 4 (see Section VIIC of 3420.5-27). It is set to the 
priority of the mission program that is established by "V37XEQ", 
for subsequent use by erasable memory restarts. 

PIPA: See IMU Computations. 

PIPCTR: Single precision cell, scale factor BI 4 , used to control the 
performance of "QUIKREAD" . It is set to 2 in "READACCS" to allow 
"QUIKREAD" to be performed 1.0 and I .5 seconds after "READACCS" 

("READACCS" itself causes "QUIKREAD" to be done 0.5 seconds after 
"READACCS"). 
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PRIORITT^ (i =0 - 6): Set of cells containing in bits 14-10 the 
priority Information on computer jobs associated with the 
job register set (see Section VIIB of 3420.5-27). If the cell 
contains -0, this indicates that the corresponding job register 
set is available . 

QREG: Computer hardware address 0002., loaded with return address 

Information after a "TC" machine language transfer instruction. 

See 3420.5-27 for details (program notation "Q"): the S-register 
portion is loaded into QREG. 

R^^: Temporary storage for updated value of R in "CALCRVG", used 

for restart protection purposes and to ensure a homogeneous state 
vector on the downlink (same units and scaling as R) . It is 
used in "NORMLIZE" to initialize R for Average-G: in such cases 
R^^ loaded either by "Pll" or "MIDT0AV2" . ' 

RCSFLAGS; See Digital Autopilot Interface Routines. 

REDOCTR: Single precision cell, scale factor BI4, used to count the 
number of hardware restarts (entrances to "GOPROG") that have 
been performed. It is initialized to 0 as part of a verb 36 
fresh start. 

REQRET: See Data Input/Output. 

RESTREG: See Display Interface Routines. 

ROLIdlBO: See Entry Computations: quantity updated in "ATTRATES" . 

ROLLdPIP: Value of ROLIdlSO sampled in "READACCS", scale factor B-1, 
units revolutions, single precision. See ALFAdPIP. 

RSBBQ: Value of address where hardware restart (causing entrance to 
"GOPROG") was generated. Most significant half contains BBCON 
(see BBANK above) information and least significant half 
has Q-register information. 

RTX2: See Orbital Integration. It is left at 0 for earth and 2 for 
moon by "MIDI0AV2" (used to initialize R etc. for Average— G), 
and is set 0 in "Pll". Used e.g. in "CaEcGRAV" to determine 
proper gravity formula to be used. 

SCALSAVE: Value of (Channel 3, Channel 4) saved in "PO6", scale 
factor B23 , units centi— seconds . Used to restore the proper 
value of the computer clock (modulo 2^3 centi-seconds or about 
23.3 hours) after a period of low-power operation. 

SELFREI: Cell containing return address information to routine calling 
"CHECKNJ" (a location in the computer self -check memory bank, hence 
the name ) . Must be preset as part of the initial conditions routine 
so that the "DUMMIJOB" routine will function properly. 

SIN0: Value of sine of latitude computed in "CALCGRAV", scale factor Bl. 
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SKEEPi: See Testing Routines. 


SMODE: See Testing Routines. 

SOLD, SRA.TE: See Optics Computations. 

STARIND: See Inflight Alignment. 

SUPERBNK: Value of computer channel 07, containing in bits 7-5 the 
specification of the "super bank" setting: value of 0-3 causes 
FRANK settings of 30g-37rt to read out correspondingly numbered 
fixed memory banks; a setting of 4 causes FBANK settings of 30g- 
33rt to read out fixed memory banks 40-43 (used e.g. for most 
DSO processing). Also referred to as FEXT . 

T . T : See IMU Computations . 
pptml ^ 

T5L0C: See Digital Autopilot Interface Routines. 

T5PHASE; See Digital Autopilot RCS Routines. 

TEMPMM: See Minimum Key Rendezvous. 

TIME2SAV: Value of T retained in "P06", scale factor B28, units 

now ^ 

centi-seconds (the corresponding value of channels 3 and 4 is 

in SCAT, SAVE) , used to permit restoration of the proper value of 

the computer clock (T^^^^) after a period of low-power operation. 

TIME3, TIME4, TIME5: Computer hardware erasable memory counter clock 
cells, whose overflow cause program interrupts #3, #4, and #2 
respectively (all are scale factor B14 in units of centi-seconds, 
and are set to (16384 - t), with t in centi-seconds, to cause 
overflow in "t" centi-seconds). See 3420.5-27* 

TOLD, TRATE: See Optics Computations. 

TRKMKCNT: See Measurement Incorporation. 

TTE, TTE2: See Display Computations. 

UPSVFLAG: See Uplink Processing. 

Temporary storage for updated value of V in "CALCRVG", used for 
restart protection purposes and to ensure a homogeneous state 
vector on the downlink (same units and scaling as V) . It is 
used in "NORMLIZE" to initialize V for Average-G: in such cases, 
V^^ is loaded either by "Pll" or "MIDT0AV2" . 

VACIUSE (I = 1-5): Control cell indicating, if zero, that the associated 
VAC area is assigned; otherwise, it contains its own address 
(hence VAC3USE +1 would be the address of the first available 
cell in the 43-cell VAC area). Quantities indicated as in 
"push-down list", or by their "relative address" identification, 
are stored in a VAC area. See 3420.5-27 for more details. 

VERBRBG: See Data Input/Output . 
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VHFCNT; See Measurement Incorporation. 
WTOPTION : See Optics Computations . 


XOLDBUF: Value of previous XPIPBUF, containing accelerometer samples 

with scale factor BI 4 , units pulses. Cells are all single precision, 
with program notations XOLDBUF, YOLDBUF, and ZOLDBUF respectively. 

Use same cells as ADOT^+1, ADOT_ , and ADOT^+l (for telemetry 
purposes); see Digital Autopilot^P RCS Routiies. 


XPIPBUF: Set of three consecutive erasable memory cells, scale factor 

BI 4 , units pulses (accelerometer counts, uncompensated). Cells 

are all single precision, with program notations XPIPBUF, YPIPBUF, 

and ZPIPBUF respectively. Use same cells as ADOTq , AD0T_+1, and 

ADOT-i (for telemetry piirposes): see Digital AutoB?iot RCS 
"^sp 

Routines . If Entry DAP is running(bit 12 of FLAGWRD6 = l) , loaded 
in "READACCS" with raw accelerometer sample, and updated 0.5, 1.0, 
and 1.5 seconds later with present accelerometer count (in 
"QUIKREAD"), with previous value of XPIPBUF being stored in 
XOLDBUF . 


GENP-38 


Verb 37 Ma,ior Mode Tables 


Mode 

Address EBANK 

DNLSTCOD 

Mode 

Address 

EBANK 

DNLSTCOD 

00 

— 

- 

0 

47 

"P47CSM" 

7 

3 

01 

"GTSCPSS" 

5 

0 

51 

"P51'' 

5 

0 

06 

"P06" 

4 

0 

52 

"PR0G52" 

5 

0 

15 

"P15J0B" 

7 

3 

53 

"P51""'' 

5 

0 

20 

"PR0G20" 

6 

2 

54 

"PR0G52"’''’ 

5 

0 

21 

"PR0G21" 

4 

2 

6l 

"P6l" 

6 

3 

22 

"PR0G22" 

7 

4 

62 

"P62" 

6 

1 

23 

"P23" 

7 

2 

72 

"P72" 

4 

2 

24 

"PR0G24" 

5 

4 

73 

iipy^ II 

4 

2 

29 

"P29" 

7 

2 

74 

"P74" 

4 

2 

30 

"P30" 

7 

2 

75 

"P75" 

4 

2 

31 

"P31" 

4 

2 

76 

"P76ER77" 

7 

2 

32 

"P32" 

4 

2 

77 

"P76ER77" 

7 

2 

33 


4 

2 

79 

"P79" 

7 

2 

34 

Mp34" 

4 

2 

81 

"P81" 

6 

2 

35 

"P35" 

4 

2 

82 

"P82" 

6 

2 

36 

"P36" 

4 

2 

S3 

"P83" 

6 

2 

37 

"P37" 

7 

2 

S4 

"P84" 

6 

2 

40 

"P40CSM" 

6 

3 

85 

"P85" 

6 

2 

41 

"P41CSM" 

6 

3 

86 

"P86" 

6 

2 

’''Table 

entries for P53 and P54 indicate 

starting 

addresses of ' 

"P53" 

and 

"P54" 

respectively, 

but 

these tags are 

defined to be equal to 

"P51" 

and 


"PR0G52", as shown. 

P81-P86 are control drivers for minimum key rendezvous cycling: they are 
not intended for manual selection. 


♦ 
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IMU Computations 


R02BQTH Entered from "P4OS/F" (P40/P41), "P47CSM", "PR0G20", "PR0G22", 
"PR0G24", "PROG52" (P52/P54), "S6I.I" (P61/P62), and ''V89CALL" 

If bit 13(REFSMFLG) of FLAGWRD3 = 0: 

If bit 9(IMU0PBIT) of IMODES3O =0: (iMU turned on) 

TS - 0220g 

If bit 9(lMaOPBIT) of IH0DES30 = 1: 

TS = 0210g 

Perform "VARALARM" 

Proceed to "GOTOPOOH" 

Set bit 8(IMUSE) of FLAGWRDO = 1 

Return 

PIPASR 

T = T 

pptml now 

Set least significant halves of DELV = 0 (flag for telemetry that 

DELV not compensated) 

Set DELV = PIPA and PIPA = -0 PIPA reset so that no counts are lost. 

Only most significant halves of DELV 

loaded. Special precautions taken to 

make routine restartable: if get a 

restart, IdPIPADT set to 

^ 2secp 

Return 

l/PIPA 

If GCOMPSW < 0, Return 
Inhibit interrupts 

Perform the following for i = z, y, x: 

DELV. = DELV. + C . ^ DELV. - C . IdPIPADT 

1 1 pipascf. 1 pipabias. 

sp ^ ^ 1 sp 1 

Release interrupts 


GCOMP 

X 

= GCOMP - 

X 

ad,x 

DELV 

X 

+ 

C 

sr,x 

DELV - 

y 

nbdjX 

IdPIPADT 

GCOMP 

y 

= GCOMP - 

y 

ad,y 

DELV 

y 

+ 

C 

sr,y 

DELV - 
z 

^nbd,y 

IdPIPADT 

GCOMP 

z 

= GCOMP - 
z 

’^adjZ 

DELV^ 

- 

c 

sr,z 

DELV + 

«/ 

*^nbd,z 

IdPIPADT 
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If magnitude of any GCOMP. (i = x,y,z) K , : 

1 CpCK! 

Establish "l/CHECK" (priority 21g) 

Return 

NBDONLY Established by "SVCT3" 

If GCOMPSW <0, End of job 
Inhibit interrupts 

If bit 15(DRIFTFLG) of FLAGWRD2 = 0, End of job 
Set TS = IdPIPADT and IdPIPADT = TIMEl 
Release interrupts 

TS = IdPIPADT - TS (i.e. new value minus old value) 

Proceed to "NBD2" 

LASTBIAS Established by "PREREAD" 

Perform "PIPUSE" 

If GCOMPSW <0, End of job 

TS = (least significant half of T . . ) - IdPIPADT ) 

pptml^ 

IdPIPADT = 

2secp 

Proceed to "NBD2" 

NBD2 

If TS = 0, End of job 
If TS CO: 

TS = TS + 16384 centi-seconds (correct for TIMEl overflow) 

GCOMP^ = GCOMP^ - 0^^^ ^ TS (TS scaling here BI 9 ) 

GCOMP = GCOMP - C TS 

y y nbd,y 

GCOMP = GCOMP + C TS 

z z nbd , z 

If magnitude of any GCOMP. (i = x,y,z):^K : 

1 CpCK 

Proceed to "l/GYRO" 

End of job 
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l/CHECK 


If IMUCADR 7^ 0: 

End of job 

Proceed to "l/GYRO" 
l/GYRO 

Shift GCOIff right 7 places (bits corresponding to 2“® pulses and below 
are lost), making scaling B21 pulses 

TS = "GCOMP" 

Perform "IMJPULSE" 

Perform "IMUSTALL" : if error return, proceed 

otherwise, proceed 

Shift least significant half of GCOtff left 7 places, making scaling 
of double precision number (for most significant halves O) B14 
pulses. Bits 14-8 of least significant half lost (expected to 
be 0 for normal operation) 

End of job 

) IMUMON Entered from "PROCEEDE" every O.48 seconds 

TS^ = (bits 15-11 and 9 of channel 30) 

If TS^ = (bits 15-11 and 9 of IMODES3O): 

Proceed to "TNONTEST" 

TS = 0 (in RUPTRBG2 cell) 

Set those bits of TS = 1 that are different in IIODES30 and TS-, 

(in the range of bits 15-11 and 9) ^ 

Set (bits 15-11 and 9 of IMODES3O) = TS^ 

If bit 15 of TS = 1: (IMU temperature) 

TS = bits 14-1 of TS (Tag here "TT.TM") 

If bit 15(TLIMBIT) of IMODES3O = 1: 

Set bit 4(Temperature Caution) of channel 11 - 1 
If bit 15(TLIMBIT) of IMODES3O = 0: 
j If bit l(LMPTSTBT) of IMODES33 = 0: 

Set bit 4(Temperature Caution) of channel 11 = 0 
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If bit 14 of TS = 1: 


(IMU tiirn-on request) 

If bit 2 (DLAYFAIL) of IM0DES30 = 0: (Tag here "ITURNON") 

If bit 14(T0NISSBT) of IM0DES30 =0: 

Set bit 7(rTN0NlBT) of IMODES 3 O = 1 

If bit 14(T0NISSBT) of IMODES 3 O = 1: 

If bit 15(ISS Turn-on Delay Complete) of channel 
12 = 0 : 

Set bit 2 (DLAYFAIL) of IMODES 3 O = 1 
Perform "ALARM" (pattern 0207g) 

If bit 13 of TS = 1: (iMU fail) 

Perform "SETISSW" 

If bit 12 of TS = 1: (IMU CDU fail) 

Perform "SETISSW" 

If bit 11 of TS = 1: (IMU cage command) 

If bit ll(CAGEBIT) of IMODES 3 O =1: (Tag here "IMUCAGE") 

Set bit 4 (No Attitiade) of DSPTABtll = 0, and flag for 
output at next opportunity 

Set bit 5 (Zero IMU CDU) of channel 12 = 1 

CDU = 0 

Call "UNZ2" in 0.32 seconds 
Proceed to "C33TEST" 

Set bits I 5 -IO (IMU and CDU drive enable and gyro drive enable) 
of channel 14 = 0 

Set bits 8 (TVC Enable), 6-4 (Enable IMU CDU Error Counters, Zero 
IMU CDU, and Coarse Align IMU), and 2(Enable Optics Error 
Counters) of channel 12 = 0 

Set bit 7(ENG0NFIG) of FLAGWRD5 = 0 

Set bit 13(SPS Engine On) of channel 11 = 0 

Perform "CAGESUB" (starting at 3r^ line) 
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(If bit 11 of TS = 1 ): 


Set bits 5 (TRACKFLG) of FIAGWRDl, 15 (DRIFTFLG) of FIAGWRD2, and 
13(REFSMFLG) of FLAGWRD 3 = 0 

CDUXCMD = -0 

GYROCMD = -0 

Set bits 9-6 (Gyro drive selection) of channel 14 0 

If bit 9 of TS = 1: (IMU operate) 

If bit 9(IMU0PBIT) of IM0DES30 = 1 ; (Tag here "IMUOP") 

Set bit 6(N0IMUDAP) of IMODES 33 = 1 

Set bits 5(TRACKFLG) of FLAGWRDl, 15(DRIFTFLG) of FLAGWRD2, 
and 13(REFSMFLG) of F1AGWRD3 = 0 

Set bit 9(UTFLAG) of FLAGWRD 8 = 0 

If bit 8 (IMUSE) of FLAGWRDO = 1 : 

Perform "ALARM" (pattern 0214^) 

O 

Set bits 8 (IMUSE) and 7(RNDVZFIG) of FLAGWRDO = 0 
If bit 9(IMU0PBIT) of IM0DES30 =0: 

If bit 2(DLAYFAIL) of IM0DES30 = 0: 

Set bit 7(ITN0N1BT) of IMODES 3 O = 1 
Proceed to "TNONTEST" 

TNONTEST 

If bit 7(ITN0N1BT) of IMODES 3 O = 0 : 

Proceed to "C 33 TEST" 

If bit 8(ITN0N2BT) of IMODES 3 O = 0: 

Set bit 8(ITN0N2BT) of IMODES 3 O = 1 
Proceed to "C 33 TEST" 

Set bits 8-7(lTN0N2BT, ITNONIBT) of IM0DES30 = 0 (Tag here "PROCTNON" ) 
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If bit 14(T0NISSBT) of IM0DES30 = 1: 


If bit i+CCoarse Align) of channel 12 = 1: (Tag here "OPONLY") 

Proceed to "C33TEST" 

If bit 8(IMUSE) of FIAGWRDO = 1: 

Proceed to "C33TEST" 

Set bits 6-3 (IMUNITBT, NOACCALM, IMUFINHT, ICDUINHT) and bit 
l(ACCFINHT) of IM0DES30 = 1 

Set bit 6(N0IMUDAP) of IMODES33 = 1 

Set bit 4 (No Attitude) of DSPTABtll = 0, and flag for output 
at next opportimity 

Set bit 5 (Zero IMU CDU) of channel 12 = 1 
CDU = 0 

Call "UNZ2" in 0.32 seconds 
Proceed to "C33TEST" 

If bit 9(IMU0PBIT) of IM0DES30 = 1: 

Perform "ALARM" (pattern 0213g) 

Perform "CAGESUB" 

Call "ENDTNON" in 90 seconds 
Proceed to "C33TEST" 

C33TEST 

TS^ = (bits 13-11 of channel 33) 

Reset channel 33 flip-flops (bits 15-11, done by a Write-type order) 
If TS^ = (bits 13-11 of IMODES33): 

Proceed to "GLOCKMON" 

TS = 0 

Set those bits of TS = 1 that are different in IMODES33 and TS^ 

(in the range of bits 13-11) 

Set (bits 13-11 of IM0DES33) = TS^ 
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If bit 13 of TS = 1: (Accelerometer fail) 

Set bit lO(PIPAFLBT) of IMODES3O = bit 13(PIP2FLBT) of IMODES33 

(Tag here "PIPFAIL") 

Perform "SETISSW" 

If bit l(ACCFINHT) of IM0DES30 = 1: 

If bits 10-7 (PIPAFLBT, IMJOPBIT, ITNON2BT, ITNONIBT) and 
bit 5(N0ACCALM) of IMODES3O all = 0: 

Perform "ALARM" (pattern 0212g) 

If bit 12 of TS = 1: (Dovmlink too fast) 

If bit 12(DNLKFAIL) of IMODES33 = 0: (Tag here "DNTMFAST") 

Perform "ALARM" (pattern 1105g) 

If bit 11 of TS =1: (Uplink too fast) 

If bit ll(UPLKFAIL) of IMODES33 = 0: (Tag here "UPTMFAST") 

Perform "ALARM" (pattern 1106^) 

O 

Proceed to "GLOCKMON" 

GLOCKMON Entered every O.48 second after computations of "IMUMDN" 

TS - IGDUJ + 

If TS,$0: 

If bit 6(Gimbal Lock) of DSPTABtll = 0, Resume 

If bit l(LMPTSTBT) of IMODES33 = 0: 

Set bit 6(Gimbal Lock) of DSPTABtll = 0, and flag for 
output at next opportunity 

Resume 

If (TS + K _ , )> 0: 

ml5degs ^ 

If bit 4(Coarse Align) of channel 12 = 0: 

If bits I4-I3 of DAPDATRl = ll2‘ (Saturn DAP) 

If bit l(AVEGFLAG) of FLAGWRDl = 1: 

Skip next 2 lines 
Perform "SETCOARS" 

Call "CA+ECE" in O.O6 seconds 
If bit 6(Gimbal Lock) of DSPTABtll = 1, Resxmie 
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If bit 6(IMJNITBT) of IM0DES30 = 1, Resume 

Set bit 6(Gimbal Lock) of DSPTABtll = 1, and flag for output at 
next opportunity 

Resume 

SETISSW 

TS^ = (bits 4(IMUFINHT), 3(ICDUINHT) and l(ACCFINHT) of IM0DES30) 

Shift TS^ left 9 places (loading bits 13, 12, and 10) 

TS = TS @ IM0DES30 (bits 13, 12, and 10 of IM0DES30 are IMQFLBIT 
^ ICDUFLBT, and PIPAFLBT) 

TS^ = bits 13 , 12, and 10 of (- TS^) 

If TSc ^ 0: (means that 13/4, 12/3, and lO/l bit pairs not have 

at least one of the two bits of the pair a binary l) 

TS = TSj. - 1 (communication cell with "VARAIARM", not affecting 
^ the TS of e.g. "IMUMON") 

Perform "VARALARM" 

Set bit l(lSS Warning) of channel 11 = 1 
Return 

If bit I(IMPTSTBT) of IMODES33 = 0: 

Set bit l(lSS Warning) of channel 11 = 0 
Return 
CAGESUB 

Set bit 15(lSS Turn-on Delay Complete) and bit 6 (Enable IMU CDU 
Error Coimters) of channel 12 = 0 

Set bit 5 (Zero IMU CDU) and bit 4(Coarse Align) of channel 12 = 1 

Set bit 4(No Attitude) of DSPTABtll = 1, and flag for output at 
next opportimity (Tag here "CAGESUBl") 

Set bits 6-3 (IMJNITBT, NOACCALM, IMUFINHT, ICDUINHT) and bit 
l(ACCFINHT) of IM0DES30 = 1 

Set bit 6(N0IMUDAP) of IMODES33 = 1 

Return 


IMUC-B 


Rev. 0 


ENDTNON 


If bit 2(DUYFAIL) of IMODES30 = 1: 

Set bit 2(DLAYFAIL) of IM0DES30 = 0 
If bit 14(TONISSBT) of IMODES30 = 0: 

Delay 90 seconds 
Proceed to "ENDTNON" 

If bit 8(IMJSE) of FLAGWRDO = 1: 

Proceed to "IMQBAD" 

End of task 

Set bit 15(ISS Turn-on Delay Complete) of channel 12 = 1 

Set bit 4 (No Attitiide) of DSPTABtll = 0, and flag for output at 
next opportunity 

Proceed to "UNZ2" 

UNZ2 

CDU = 0 

Set bit 5(Zero IMJ CDU) and bit 4(Coarse Align) of channel 12 = 0 
Delay 7*9 seconds 

Set bits 6(IMUNITBT), 4(IMJFINHT) ,and 3(ICDUINHT) of IM0DES30 = 0 
Set bit 6(N0IMUDAP) of IMODES33 = 0 
Perform "SETISSW" 

Set bit 15(ISS T\irn-on Delay Complete) of channel 12 = 0 
Call "PFAILOK" in 4 seconds 
End of task 

PFAILOK Called by "UNZ2" 

If bit 6(IMUNITBT) of IM0DES30 = 1, End of task 
Set bit lO(PIPAFLBT) of IM0DES30 = 1 
Set bit 13(PIP2FLBT) of IMODES33 = 1 
Set bit 5(N0ACCALM) of IM0DES30 = 0 
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Perform "SETISSW" 


End of task 

IFAILOK Called by "IMQFINE" 

If bit bdMJNITBT) of IM0DES30 = 1, End of task 
If bit A (Coarse Align) of channel 12 = 1, End of task 
Set bit 13(lMaFLBIT) of IM0DES30 = 1 
Set bit 4(IMJFINHT) of IM0DES30 = 0 
Perform "SETISSW" 

End of task 

IMJZERO Entered from "GEOIMUTT", "GTSCPSS", and "VBZERO" 

Inhibit interrupts 

If bit 6(Gimbal Lock) and bit 4(No Attitude) of DSPTAB+11 = II2: 
Perform "ALARM" (pattern 0206g) 

IMUCADR = -0 
Release interrupts 
Return 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

IMUCADR = -0 
Release interrupt s 
Return 

Set bits 6-5 (NOIMUDAP, IMUZROBT) of IMODES33 = 1 

Set bits 4-3 (IMUFINHT, ICDUINHT) of IM0DES30 = 1 

Set bit 6 (Enable IMQ CDU Error Counters) and bit 4 (Coarse Align) 
of channel 12 = 0 

Set bit 4(No Attitude) of DSPTABtll = 0, and flag for output at 
next opportunity 

Set bit 5 (Zero IMU CDU) of channel 12 = 1 
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Call "IMUZER02'' in 0.32 seconds 
If bit 9(IMJ0PBIT) of IM0DES30 = 1: 

Perform "ALARM" (pattern 0210g) 

Release interrupts 
Return 
IMUZER02 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "IMUBAD" 

CDU = 0 

Set bit 5 (Zero IMJ CDU) of channel 12 = 0 
Delay 7-9 seconds 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "IMUBAD" 

Set bits 4-3 (IMUFINKT, ICDUINHT) of IM0DES30 = 0 
Set bits 6-5 (NOIMUDAP, IMUZROBT) of IMODES33 = 0 
Perform "SETISSW" 

Proceed to "ENDIMU" 

IMUCOARS 

Inhibit interrupts 

If bit 6(IMUWITBT) of IM0DES30 = 1: 

IMUCADR = -0 
Release interrupts 
Return 

Perform "SETCQARS" 

Call "COARS" in 0.06 seconds 

Release interrupts 

Return 
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(X)ARS 


If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "IMUBAD" 

Set bit 6 (Enable IMU CDU Error Counters) of channel 12 = 1 

COMMAND = THETAD - CDU ones complement difference formed, and 

rounded shift used to rescale to B1 rev. 

Delay 0.02 seconds 
Proceed to "C0ARS2" 

C0ARS2 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "IMUBAD" 

TS^ =0 (in ITEMPl cell) 

Perform the following for i = Z,Y,X: 

If |C0MMANDi| ^ 0: 

CDUiCMD = -0 

If I COMMAND! j ^ 0: 

TS^ = TS^ + 1 

TS = IcOMMANDil + K 

' ' mcommax 

If TS> 0: 

COMMAND! = TS sgn COMMAND! 

CDUiCMD = - K sgn COMMAND! 

mcmxm 

If TS 0: 

CDUiCMD = COMMAND! 

COMMAND! = 0 

If TS^ ^ 0: (i.e. non-zero commands to be sent) 

Set bits 15-13 (Gate outputs from CDUXCMD) of channel 14 = 1 
Delay 0.6 seconds 


Proceed to "C0ARS2" 


Delay I.5 seconds 


Ifany(|cDU. - THETAD.| + > 0: (i = x,y,z) 

Perform "ALARM" (pattern 0211g) 

Proceed to "IMJBAD" 

Proceed to "ENDIMU" 

CA+ECE 

Set bit 6 (Enable IMD CDU Error Counters) of channel 12 = 1 
End of task 
SET GOARS 

If bit 4 (Coarse Align) of channel 12 = 1, Return 

Set bit 6 (Enable IMU CDU Error Counters) of channel 12 = 0 

Set bit 10 (Gyro Output Drive) of channel 14 = 0 

GYROCMD = -0 

Set bit 4(Coarse Align) of channel 12 = 1 

Set bit 4 (No Attitude) cf DSPTABtll = 1, and flag for output at 
next opportunity 

Set bit 6(N0IMUDAP) of IMODES33 = 1 
Set bit 4(IMUFINHT) of IMODES3O = 1 

Set bits 5(TRACKFLG) of FLAGWRDl, 15(DRIFTFLG) of FLAGWRD2, and 
13(REFSMFLG) of FLAGWRD3 = 0 

Return 

IMUFDJE Tag also "IMJFIN20" 

Inhibit interrupts 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

IMUCADR = -0 
Release interrupts 
Return 
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Set bits 5 (Zero IMU CDU) and 4 (Coarse Align) of channel 12 = 0 
Set bit 6(N0IMUDAP) of IMDDES33 = 0 

Set bit 4(No Attitude) of DSPTABfll = 0, and flag for output at 
next opportimity 

Call "IFAILOK" in 5-12 secoMs 

Call "IMUFINED" in 2 seconds 

Release interrupts 

Return 

IMUFINED 

If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "IMUBAD" 

Proceed to "ENDMJ" 

PIPUSE Entered from "ESTIMS" and "LASTBIAS" 

PIPA = -0 

If bit 6(IMUNITBT) of rM0DES30 = 1, Return 
Inhibit interrupts 
Set bit l(ACCFINHr) of IM0DES30 = 0 
Perform "SETISSW" 

Release interrupts 
Rdturn 

PIPFREE Entered from "AVGEND" 

Inhibit interrupts 

Set bit l(ACCFINHT) of IM0DES30 = 1 

If bit lO(PIPAFLBT) of IM0DES30 = 1: 

Release interrupts 
Return 

Perform "ALARM" (pattern 0212^) 

Inhibit interrupts 


IMUC-14 


Rev. 0 


Perform "SETISSW" 


) 



Release interrupts 
Return 
IMUPULSE 

If bit 6(IMUNITBT) of IM0DES30 = 1: 
IMJCADR = -0 


Return 


If IGYRO = 0: 


Set bit 6 (Enable Gyro Power Supply) of channel 14 = 1 
Call "STRTGYRO" in 0.04 seconds 
If LGYRO > 0: 


Put present job to sleep (starting address id = "GWAKE") 

When awakened, put to sleep again if LGYRO > 0 

Call "STRTGYRO" in 0.01 seconds 

LGYRO = TS (TS set on entrance to "IMUPULSE" with address of 
first gyro command) 

Force sign agreement of l]jQ.yj^Q (i.e. each double precision axis) 

dp 


Return 


STRTGYRO 

Set bits 10-7 (Gyro select bits) of channel 14 = 0 
If bit 6(IMUNITBT) of IM0DES30 = 1: 

Proceed to "DONTPULS" 

Proceed to "STRTGYR2" 

STRTGYR2 

If bits 14-13 of KtYRO = 00^: (initial condition value) 

TS^ = 2 

TS, = Bit 8 (Gyro Y-axis selection) 

4 

Proceed to "GSELECT" 
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If bits 14-13 of LGYRO = Ol^: 

TS^ = 2 

TS^ = Bits 8-7 (Gyro Z-axis selection) 

Proceed to "GSELECT" 

If bits 14-13 of LGYRO = lO^: 

TS^ = 0 

TS^ = Bit 7 (Gyro X-axis selection) 

LGYRO = LGYRO - 4 (sets for address of X component) 

Proceed to "GSELECT" 

LGYRO = 0 (bits 14-13 of LGYRO = ll^) 

Awaken job (if any) put to sleep with starting address id = "GWAKE" 
Proceed to "IMUFINED" 


GSELECT 

KiYRO = liCYRO + TS„ + lOOOOg (octal number is bit 13, to cause y,z;,x 

output sequence) 

ADRLGYR = (bits 11-1 of LGYRO) 

^ ^ADRLGYR 

dp 

If (Its! + k ) <0: 

' ' mgyrran 

Proceed to "STRTGYR2" 

TS = TS + sgn TS (modulo 1 revolution or 2^^ pulses) 

If TS <0: 


TS^ = TS^ + Bit 9 (Negative gyro torquing) 

Set those bits of channel 14 = 1 that are 1 in TS, (selects proper 
axis and sign) ^ 


= (bits 7-1 of jE 

|ts| 


®ADRLGYR+1 
TS = K 

gyrsc 

TS^ = integral part of (TS/8192) 


'ADRLGYR+1 


I ) sgn E 


ADRLGYR 


, (save fractional 
'dp pai't ) 






iMuc-16 


Rev. 0 


(in range 0 - 8191) 


o 




TS^ = TS - 8192 TS^ 

If TS^ > 1: 

®ADRLGYR+0 = - 2 (Tag here "LONGGYRO") 

GYROCMD = 8192 + TS^ 

Call "8192AUG" in GYROCMD - 3) centi-seconds 

Set bit 10(Gyro Output Drive) of channel 14 = 1 
End of task 
If TS^ = 1: 

TS2 = TS^ + 8192 

\drigyr+o "" ° 

GYROCMD = TS 2 

If bit 4(IMD Coarse Align) of channel 12 = 0: 

If bit 6(IMUWITBT) of IM0DES30 = 0: 

Call "TWOPULSE" in (K^^]_q GYROCMD + 3 ) centi-seconds 
Set bit 10 (Gyro Output Drive) of channel 14 = 1 
End of task 
Proceed to "DONTPULS" 

8192AUG 

If bit 4(IMU Coarse Align) of channel 12 = 1: 

Proceed to "DONTPULS" 

If bit 6 (IMUNITBT) of IMODES 3 O = 1: 

Proceed to "DONTPULS" 

^ADRLGYR+O-^ 

®ADRLGYR+0 "" \dRLGYR+0 " ^ 

GYROCMD = GYROCMD + 8192 

Call "8192AUG" in (K^^ 3 _q GYROCMD - 3 ) centi-seconds 
Set bit 10(Gyro Output Drive) of channel 14 = 1 
End of task 
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GYROCMD = GYROCMD + 8192 

If bit 4(MJ Coarse Align) of channel 12 = 0: (redundant vd.th check 

already done) 

If bit 6(IMUNITBT) of IM0DES30 = 0: 

Call "TWOPULSE" in GYROCMD + 3) centi-seconds 

btlO 

Set bit 10 (Gyro Output Drive) of channel 14 = 1 
End of task 
Proceed to "DONTPULS" 

TWOPULSE (Purpose is to have "last" torquing always negative) 

Set bit 9(Negative Gyro Torquing) of channel 14 = 0 
GYROCMD = 2 (sent in less than 1 ms) 

Set bit 10(Gyro Output Drive) of channel 14 = 1 

Call "STRTGYRO" in 0.01 second (logic for this requires over 1 ms) 

Set bit 9 (Negative Gyro Torqtiing) of channel 14 = 1 
GYROCMD = 2 

Set bit 10(Gyro Output Drive) of channel 14 = 1 
End of task 
DONTPULS 

IGYRO = 0 

Awaken job (if any) put to sleep with starting address id = "GWAKE" 
Proceed to "IMUBAD" 

ENDIMU 

If bit l(ISS Warning) of channel 11 = 1: 

Proceed to "IMUBAD" 

If IMUCADR = +0: 

IMUCADR = -1 
End of task 

Awaken job put to sleep in "IMUSTALL" and cause it to start at 
(IMUCADR +l), indicating a success 
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IMUCADR = +0 



End of task 


IMUBAD 


If IMUCADR = +0: 
IMUCADR = -0 
End of task 


Awaken job put to sleep in "IMUSTALL" and 
(IMUCADR), indicating an error 


cause it to start at 


IMUCADR = +0 


End of task 


IMUSTALL 


If 

If 


IMUCADR ^ 0, proceed to "POODOO" (pattern 21210 ) 

S' 


IMUCADR = +0, set IMUCADR = (Calling address +1 
format), and put present job to sleep 


in FCADR 


If IMUCADR - -0: 


IMUCADR = +0 


Return (to calling address +1, indicating an error) 
If IMUCADR = -1: 

IMUCADR = +0 

Return (to calling address +2, indicating a success) 

If IMUCADR < - 1 , proceed to "POODOO" (pattern 21210 ) 

8 
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Quantities in Computations 

See also list of major variables and list of routines 


IdPIPADT: Cell containing time information used with IMU compensation 
routines. During free-flight portions, contains value of TIMEl 
when previous gyro drift compensation was made, scale factor BI4, 
units centi-seconds (with optional tag "OLDBTl")* During those 
portions of flight when "l/PIPA" is entered, contains value of 
computing interval, scale factor B8, units centi-seconds. Both 
quantities are single precision. Cell is set to 2 seconds in 
"Pll" and in "LASTBIAS", and to i second in "GTSCPSS" . 

ADRKjYR: Dummy quantity used to indicate that gyro compensation 

information taken from least significant 11 bits of LGYRO. Bits 
11-9 are loaded into EBANK (see Data Input/Output) and bits 8-1 
are added to 1400g to give address within the erasable memory bank. 

C Set of three single precision erasable memory constants, program 
notation "ADIAX", "ADIAY", and "ADIAZ", to correct for "IRIG 
acceleration sensitive drift along the input axis", scale factor 
B-3. units gyro pulses/accelerometer count. One gyro pulse is 
2-21 i-evolution and one accelerometer count is a velocity increment 
of 5'85 centimeters/second. The units of the constant can also be 
expressed as "meru/g", where one meru is 10“^ x earth rate. In 
these units, the scaling of the constant is about 19.0304345 least 
increments wr (meru/g): this figure is 2^' x 0.024339048 x 
(5.85 X 10“^)/9. 80665, where first term is the reciprocal of the 
least increment for units of gyro pulses/accelerometer count; the 
second term is the nimiber of gyro pulses/meru (0.1 K , see 

Prelaunch Alignment); the third is the accelerometer°sci51i factor 
in units of meters/second; and the fourth is gravity (meters/sec^) . 
If earth rate is simplified to 15 degrees/hour, the number of 
least incrementB per (meru/g) is reduced to about 18.9785. 

C ^ : Set of three single precision erasable memory constants, program 
notation "NBDX", "NBDY", and "NBDZ", to correct for "IRIG bias 
drift", scale factor B-5, units gyro piilses/centi-second. The 
units of the constant can also be expressed as "meru", in which 
case the scaling is about I27.6O67O8 least increments per meru: 
this figure is 2^° x 0.01 x 0.024339048 (see C the 0.01 factor 
is for centi-seconds). For earth rate simplified to I5 degrees/hour 
the number of least increments per meru is reduced to about 127.2583 

Ci bias’ three single precision erasable memory constants, 

program notation for first "PIPABIAS" (or "PBIASX", "PBIASY", 
and "PBIASZ"), to correct for "accelerometer bias", scale factor 
B-6, units accelerometer counts/centi-second. The units of the 
constant can also be expressed as "cm/sec^", in which case the 
scaling is about 1792.4376 least increments per cm/sec^: this figure 
is 2 X 0.01 X (1/5.85), where first term is reciprocal of normal 
least increment, second compensates for centi-seconds. 
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and third is reciprocal of accelerometer scale factor. In-flight 
evaluation could be performed by determining the nvimber of accelerometer 
counts accumulated ^ a period of 320 seconds, multiplying by two 
to give counts in x 10) seconds, and then dividing by 1000 to 
give scaled counts/centi-second. N21 can be used to read PIPA 
cells and NOl with decimal input can be used to load the appropriate 
cells (1452, 1454, and 1456 in ECADR form for x, y, z respectively). 

0 . Set of three single precision erasable memory constants, program 

-pipasci notation "PIPASCFX", "PIPASCFI", and "PIPASCFZ", scale factor 
B-9, units accelerometer counts/accelerometer count, used to 
correct for "accelerometer scale factor error." The vuaits of the 
constant can also be expressed as "parts per million (PPM)", in 
which case the scaling is 8.3S86O8 least increments per PPM: 
this figure is 2 ^^ x 10“°, where first term is reciprocal of 
normal least increment and second is PPM conversion. 

C : Set of three single precision erasable memory constants, program 
notation "ADSRAX", "ADSRAY", and "ADSRAZ", to correct for "IRIG 
acceleration sensitive drift along the spin reference axis", 
scale factor B-3, units gyro pulses/accelerometer count. See 
discussion with (which has same scaling) . 

CDUXCI® (CDUXCMD, CDUYCMD, CDUZCMD): Single precision value of computer 
special erasable memory cells 0050^ - 0052g. Output pulses are 
generated based on the contents 01 these cells if bits 15-13 of 
channel 14 (respectively) are set 1, and the respective IMU CDU 
error counter is loaded from the pulse train information if bit 6 
of channel 12 is 1. Pulses may be used to coarse align the IMU 
if bit 4 of channel 12 is set (in this case, IMU stable member 
movement causes the error counter information to be decremented) , 
with 2^3 pxiises giving one revolution. Pvilses are generated at 
a rate of 3200 pps. See also Digital Autopilot Interface Routines. 

COMMAND: Single precision value of required coarse-align command, scale 
factor Bl, units revolutions. Could also be considered (see above 
discussion of CDUiCMD) to have a scale factor BI 4 , units coarse- 
align pulses. 

DAPDATRl: See Digital Autopilot Interface Routines. 

GCOMP: Value of required gyro compensation command, computed with a scale 
, factor BI 4 but used in "IMUPULSE" with a scale factor B21 (or, 
alternatively, with a scale factor BO revolutions rather than B21 
gyro pulses, since there are 2^^ gyro pulses/revolution). 

GCOMPSW: Single precision control cell used to bypass the performance 
of "1/PIPA" and "NBDONLY" if is negative. Set 0 in "GTSCPSS". 

GYROCMD: Single precision value of computer special erasable memory cell 
0047g, used to control generation of gyro torquing pulses at a 
3200 pps rate if bit 10 of channel I 4 = 1. Gyro power supply for 
the pulses is enabled by bit 6 of channel I 4 , bits 8-7 indicate 
the axis, and bit 9 is 1 if a negative command is to be produced. 

One pulse is 2“^^ revolution. 
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IM0DES30: Single precision flag word used for control of "T4RUPT" routines 
associated with channel 30 inputs. Individual bits have the meanings 
given below. A restart ("GOPROG") sets bits 14-10 to 1 and sets bits 
15, 8-6, and 2 to 0. 


Bit Symbol 
15 TLIMBIT 

14 TONISSBT 

13 IMJFLBIT 

12 ICDUFLBT 

11 CAGEBIT 

10 PIPAFLBT 

9 IMUOPBIT 

8 ITN0N2BT 

7 ITNONIBT 

6 IMUNITBT 

5 NOACCALM 
4 IMUFINHT 


Meaning 

Last sampled value of channel 30 bit 15 (O if stable 
member within designed temperature limits). 

Last sampled value of channel 30 bit 14 (0 if 

ISS has been turned on or commanded to be turned on) . 

Last sampled value of channel 30 bit 13 (0 if 
an IMG fail indication has been produced by the 
IMG hardware) . 

Last sampled value of channel 30 bit 12 (0 if 
an IMG CDG fail indication has been generated by 
the IMG CDG hardware). 

Last sampled value of channel 30 bit 11 (O if 
an IMG cage command generated by the crew) . 

Same as bit 13 of IMODES33 (O if an accelerometer 
fail indication produced by the hardware, channel 
33 bit 13). 

Last sampled value of channel 30 bit 9 (O if 
IMG turned on and operating with no malfunctions ) . 

Bit 7 of IM0DES30 sensed as 1 (i.e. turn-on 
request received). Gsed to achieve a wait of 
O.4S seconds (during which bit is l) before acting 
on turn-on information. 

IMG turn-on request received (a change in value 
to a logic 1, i.e. binary 0, of bit I4 or bit 9 
of IMODES3O). 

Bit set 1 to indicate that IMG use should not 
be attempted: set 1 during the turn-on sequence, 
if bit 11 of IMODES3O indicates a cage command, or 
ISS zeroing in "T4RGPT" loop. 

Bit set 1 to inhibit generation of program alarm 
212g in "C33TEST" (for accelerometer fail signal). 

Bit set 1 to inhibit generation of ISS Warning 
signal based on IMG fail signal (bit 13 of IMODES3O) . 
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Bit 

Svmbol 

Meaning 

n 

3 

ICDUINHT 

Bit set 1 to inhibit generation of ISS Warning 
signal based on receipt of IMU CDU fail signal 
(bit 12 of IM0DES30). 


2 

DLAYFAIL 

Bit set 1 to indicate failxire of the t\irn-on 
delay sequence (IMU tum-on signals not present 
for the required time interval). 


1 

ACCFINHT 

Bit set 1 to inhibit generation of ISS Warning 
signal based on receipt of accelerometer fail 
signal (bit 10 of IMODES 3 O). 


IMDDES33' Single precision flag word used for control of "T/tRUPT" 

routines associated with channel 33 inputs (and other functions). 
Individual bits have the following meanings. 


Bit 

Svmbol 

Meaning 

U 

PROCDBIT 

Last sampled value of channel 32 bit 14 (0 
if a Proceed pushbutton command given) . This 
bit is used in "PROCEEDE". 

13 

PIP2FLBT 

Last sampled value of channel 33 bit 13 (O 
if an accelerometer fail indication has been 
produced by the hardware). 

12 

DNLKFAIL 

Last sampled value of channel 33 bit 12 (O 
if telemetry end pulse rejected, downlink too 
fast) . 

11 

UPLKFAIL 

Last sampled value of channel 33 bit 11 (O 
if uplink piilse rejected, uplink too fast). 

6 

NOIMUDAP 

Bit set 1 to indicate that IMU use for 
vehicle attitude information should not be 
attempted (sensed by RCS DAP and Entry DAP). 

5 

IMUZROBT 

Bit set 1 in "IMUZERO" and reset 0 about B.22 
seconds later in "IMUZER02". Indicates that 
IMU zeroing outside of T4RUPT package is 
taking place. 

1 

EMPTSTBT 

Bit set 1 if a lamp test (verb 35) is in 
progress, to inhibit turn-off of appropriate 
indicators . 

IMUCADR; 

Cell containing 

control infonnation used in association with 


"IMUSTALL": it contains retiim address information from the routine 
or information on the success (if = -l) or failure (if = -O) of 
an IMU function. 


u 
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^2secp' precision constant, program notation "PRIO3I'', octal 

value 31000gj scale factor B8, units centi-seconds . Value 
corresponds to 2 seconds. 

^btlO* Single precision constant, program notation "BITIO", scale 

factor BO, units centi-seconds/gyro torquing pulse. Value is 
2-5(i.e. 1/32), since output pulse rate is 3200 pps, or 32 
pulse s/centi-second . 

^corst* Single precision constant, program notation "COARSTOL", scale 
factor B-1, units revolutions. Octal value is 77511g, which 
corresponds (after a one— bit modification used in the program 
for convenience in forming the absolute value) to about -2.0105°. 

K , : Single precision constant, program notation "NEGONE", scale 
^ factor Bli)., units gyro pulses, used to check if compensation of 
gyros is required. Octal value is 77776^} but used in the program 
in such a way (a mask on decremented jGCo^.j ) that effective 
value corresponds to 3 pulses: the most significant half of GC0MPj_ 
must be 3 or more pulses for the "l/GYRO" computations to be 
initiated, although lack of sign agreement could make the actual 
value only slightly more than 2 pulses. 

^gyrfrc' Constant, program notation "GYROFMC", scale factor B21, units 
gyro pulses. Stored value is 28 x 2”^®, corresponding to about 
0.219 pulses (nominal value 0.215). 

^gyrsc' constant indicating a rescaling of original contents of 

^ADRLGYR ^21 to B28 pulses. "Value" is 1.0, scale factor B7. 

\l5degs’ Single precision constant, program notation "-15DEGS", scale 
factor B-1, units revolutions. Octal value is 75252^, 
corresponding to about -14.996°. ° 

^m70degs’ Single precision constant, program notation "-7ODEGS", scale 
factor B-1, units revolutions . Octal value is 
corresponding to about -70.005° (after a one-bit modification used 
in the program for convenience in forming the absolute value). 

^cmxm* Single precision constant, program notation "-C0MMAX-", scale 
factor BI4, units CDU output pulses. Value is -192 x 2”^^. 

^mcommax* Single precision constant, program notation "-C0MMAX", scale 
factor BI4, units CDU output pulses. Value is -I9I x 2“^, 
but used in program (for convenience in forming the absolute value) 
in such a way that effective value is -192. Limits change in CDU 
angle to 192 least increments per axis (or 8.4375°) each 0.6 seconds. 
The maximum pulses required (to go 180 degrees) would be 4096, which 
would reqi^re "21.3333", i.e. 22 intervals of 0.6 seconds each. With 
the additional I.5 seconds for the K , check, time required for 
coarse align wo\ild be less than abou€°6®06 + 0.02 + 22 (0.6) + I.5, 
or 14.78 seconds. 
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K : Single precision constant, program notation "-GYROMIN", scale 

mgyrmn^g^^^^^ B7, units gyro pulses. Octal value is 77601g, which 
corresponds (after a one-bit adjustment used in program for 
convenience in forming the absolute value) to (-127/128), i.e. 
one least increment less than 1.00 gyro pulse. 

LGYRO: Cell containing (if non-zero) address information for gyro 

torquing commands. If cell is zero, gyros are "available" (i.e. 
not being driven) . 

PIPA: Value of special erasable memory cells (0037g - OOAlg) containing 
accumulated output counts from the accelerometers, scale factor 
BI 4 , units counts. One count is 5*85 centimeters/second. 

T tml" V3,lue of computer clock when accelerometers sampled, program 
notation "PIPTIMEl", scale factor B28, units centi-seconds . 
Subsequently loaded into T hence can also be used as storage 

for the time tag associated with and Vj^]_ (see General Program 
Control) for use by "PREREAD". 
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Inflight Alignment 


P5I (Tag also "P53") 

If bit 9(IMJ0PBIT) of IM0DES30 =1: (IMJ not on) 

Perform "ALARM" (pattern 0210g) 

Proceed to "GOTOPOOH" 

Proceed to "P51A" 

P51A 

Set bit 8(IMUSE) of FLAGWRDO = 1 
TS = 00015g 

Proceed to "GOPERFl": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed to "P 5 IB" 
othervd.se, proceed 

THETAD = 0 
TS = 0622 

vn 

Perform "GODSPRET" 

TS = 4100 

vn 

Perform "GODSPRET" 

If IMUCADR ^ 0: 

Delay 1 second (by putting job to sleep via "DELAYJOB") 
Proceed to second previous line (recheck IMUCADR) 

Perform "IMUCOARS" 

Perform "IMQSTALL": if error return, perform "217ALARM"; proceed 

othervd.se, proceed 

Perform "IMUFINE" 

Perform "IMUSTALL": if error return, perform "217ALARM"; proceed 

othervd.se, proceed 

Proceed to second line of "P 5 IA" 
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P51B 


STARIND = 0 
IdPIPADT = TIMEl 
GCOMP = 0 

Set bit 15(DRIFTFLG) of FLAGWRD2 = 1 

Set bit 9(LMKTRG) of FLAGWRDl = 0 

If MODREG = 53: (Tag here "P51C", from below) 

Perform "R 56 " 

If MODRQG ^ 53: 

Perform "R53" 

Perform "SXTSM". 

If STARIND = 0: 

STARSAVl = TS 

TS = T . , ^ 

■ sight 

Perform "PLANET" 

PLANVEC = TS 
STARIND = 1 

Proceed to 6 th line of "P 5 IB" 

STARSAV 2 = TS 

TS = T . , ^ (Tag here "P 5 IF") 

sight 

Perform "PLANET" 

STARBC = TS 
STARAC = PLANVEC 
STARAD = STARSAVl 
STARBD = STARSAV2 
Perform "R54" 
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If bit 3(FREEFLAG) of FLAGWRDO = 0: (e.g. a V32E response in "R54") 

Proceed to second line of "P51A." 

Perform "AXISGEN" 

Set bit 13(REFSMFLG) of FIAGWRD 3 = 0 



Set bit 13(REFSMFLG) of FLAGWRD 3 = 1 
Proceed to "GOTOPOOH" 

PR0G52 (Tag also "P54") 

Set bits 7(UPDATFLG) and 5(TRACKFLG) of FLAGWRDl = 0 
Perform "R02B0TH" 

If bit 7(AUT0SEQ) of FLGWRDIO = 1 : 

Proceed to "P52AUTO" (page MINK-9) 

If bit 9(UTFLAG) of FLAGWRD 8 = 1 : 

If OPTNTYPE ^ 0: (means "option 2 of P20", i.e. R 67 rotation) 


Set bit 5(TRACKFIG) of FLAGWRDl — 1 (should not have R 67 active 


in P 54 because of delay it can 
introduce in "R 56 ") 


If bit 4(PFRATFLG) of FLAGWRD2 = 0: 

0PTI0N2 = 3 

If bit 4(PFRATFLG) of FLAGWRD2 = 1: 

0PTI0N2 = 1 
Proceed to "P52B" 

P52B 

TS = 1 

Proceed to "G0PERF4": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 

othervd.se, proceed to previous line 

TS = (bits 2-1 of 0PTI0N2) 
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If TS = 3: ( [rEFSMM'^ orientation) 

Proceed to "P52C" 

If TS — I; ("preferred" orientation) 

Proceed to "P52D" 

If TS = 0 or 2, proceed ("nominal" or "landing site" orientations) 


DSPTEMl^p = (-0, 0) 

TS = 0634 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH" ) 

if proceed, proceed 

othervd.se, proceed to previous line 


If DSPTEMl = 0: 
sp 

DSPTEMl^ = T 

dp now 

If bit 2 of 0PTI0N2 = 1: 

T , T = DSPTEMl , 
decl dp 

Perform "CSMPREC" 


("nominal" orientation) 
(Tag here "S52.3") 


* Batt' 


X , = unit(Y , 
~smd — smd 


Z ,) 
“smd 


Proceed to "P52D" 

Set bit 12(LUNLATL0) of FIAGWRD3 = 1 
Set bit 13(ERADC0MP) of FLAGWRDl = 1 


TS^ = RLS 

T . , , = DSPTEMl^ 
sight dp 

TS^ = DSPTEMl^ 

2 dp 

TS = DSPTEMl^ 
dp 

Perform "RP-TO-R" 


("landing site" orientation) 
(mean lunar radius altitude base) 


(non-zero, meaning moon) 


ALPHA V = TS, shifted right 2 places (to scale factor B29) 
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TS = T , 

sight 

Perform "LAT-LONG" 

LANDLONG = ^ LONG 
LANDALT = ALT 
TS = 0689 

vn 

Proceed to "VNFLASH" 

LONG = 2 LANDLONG 

ALT = LANDALT 

TS = T . , , 
sight 

Perform "LALOTORV" 

-smd "" unitALPHAV 

T = T 
decl sight 

Perform "CSMPREC" 

( (Satt * W 

Proceed to "P52D" 


(if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

(note that the checks of "P22SUBRB" not done here) 


P52D 


Perform "S52.2" 

TS = 0622 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "P52D" 

If bit 7(AUT0SBQ) of FLGWRDIO = 1: 

Proceed to "PERF20" (page MINK-9) 

TS = 00013q 

Proceed to "GOPERFl": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "GYCRS" 

Proceed to "CAL53A" (exits to "P 52 C") 


INFA-5 


Rev. 0 


P52C 


TS = 00015g 

Proceed to "GOPERFl": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "R51" 

T = T + K 

sight now tsgtl 

Perform "S 5 O" 

Perform "CDUTRIG" (This is start of the former "PICA.PAR" 

routine: the tag has been deleted) 

Perform "CALCSMSC" 

Set bit lO(VFLAG) of FLAGWRD3 = 1 (means no star found) 

BESTI = 0 
BESTJ = 0 

SAX = mit ( [refsmmat]) 

XI = 22B 

Proceed to "PICl" 


PICl 

If XI ^ 6 , proceed to "PICEND" 

XI = XI - 6 

TS = Kcat^^ 

Perform "OCCULT" 

If bit 7(CULTFLAG) of FLAGWRD3 = 1, proceed to "PICl" 
X2 = XI 

Proceed to ”PIC3” 


n 


PIC3 


If X2 6 , proceed to "PICl" 
X2 = X2 - 6 


TS 


^^cat. 


X2 


Perform "OCCULT" 
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If bit 7(CULTFLAG) of FLAGWRD3 = 1, proceed to "PIC3" 


n 




TS=K. -K, -K 

-cat^l cssoo 


If TS < 0, proceed to "PIC3" (separation more than 76°) 


If TS + K 


If K . 
-cat. 


css6640 
• SAX - K 


X 0, proceed to "PIC3" (separation 30° or less) 


XI 


css33 


< 0, proceed to "PICl" 


If K 


•catx2 ‘ ■ ^css33 


If bit lO(VFLAG) of FLAGWRD3 = 1: (means no star yet found) 

Set bit lO(VFLAG) of FLAGWRD3 = 0 
BESTI = XI 
BESTJ = X2 
Proceed to "PIC3" 


TS = K . 
1 -cat. 


^cat. 


BESTI “BESTJ 

Set bit lO(VFLAG) of FLAGWRD3 = 1 


TS„ = K , 
2 -cat. 


XI 


cat^2 


Set bit lO(VFIAG) of FLAGWRD3 = 0 

If TSp - TS, 0, proceed to "PIC3" (new pair closer than 

old pair) 

BESTI = XI 
BESTJ = X2 


Proceed to "PIC3" 

OCCULT 

If CEARTH - (TS • VEARTH) ^ 0: 

Set bit 7(CULTFLAG) of FLAGWRD3 = 1 
Return 

If CSUN - (TS • VSUN) < 0: 

Set bit 7(CULTFLAG) of FLAGWRD3 = 1 
Return 
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If CMOON - (TS • VMOON) < 0: 


Set bit 7(CULTFLAG) of FLAGWRD3 = 1 
Return 

Set bit 7(CULTFUG) of FMGWRD3 = 0 
Return 

PICMD Entered from "PICl" at the end of the star table scan 

If bit lO(VFIAG) of FLAGWRD3 = 1: (means no stars found) 

Perform "ALARM" (pattern 0405-) 

O 

TS = 0509 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
othervd.se, proceed to "P52C" 


Proceed to "R 5 I" 

S50 (tag also "LOCSAM") 

TS = T . 

sight 

Perform "LSPOS" 

MOON = TS (moon position, B29 meters) 


VSUN = TS^ 


(sun position, B3S meters) 


T 

sight 


decl 

Perform "CSMCONIC" 

If X2 = 0: (means earth-centered) 

VMOON = unit (VMOON - R . , ) 

StT/U 


VEARTH = - unitR 


•att 


CMTH-ocs 


CMOON = K 

css5 

VSUN = unit VSUN 

If X2>0: (means moon-centered) 

VSUN = unit (VSUN - VMOON) 

VEARTH = - unit (VMOON + R , , ) 
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(If X2 > 0): 



) 


VMOON = - unitR . . 
- -att 


CMOON = oos ( /jS^ttP + Sags) 


CEARTH = K 

css5 

VELdC = K, , V . . + VSUN K , . , 

- Idc -att - -eclipol 


CSUN = K 


cssim 


Return 


S52.2 


Perform "CDUTRIG" 

Perform "CALCSMSC" 

= unit( [pPSMMAT]) 

= unit( ^EFSMMA^) 

= unit( [reFSMMA^) 

Psm] ” psmd] 

Perform "CALCGA" 

Return 


PLANET 

T . , . = TS 
sight 

Perform "S 5 O" 

Set VSUN = VEARTH and VEARTH = VSUN (for indexing below) 
TS = 6 (bits 6-1 of STARCODE) 

If STARIND = 0: 

BESTI = TS 
If STARIND = 1: 

BESTJ = TS 


INFA-9 


Rev, 0 


If TS = 0: 


(means planet) 


TS = 0688 

vn 

Proceed to "VNFLASH": (if terminate, proceed to "GOTOPOOH" ) 

if proceed, proceed 

otherwise, proceed to previous line 

TS = unit (unit(K^^g^^^^ STARSAV2.) + VELdC^ 

Return 


If TS - 228 <0: (original STARCODE was in range 01-45g, 

meaning a star in star table) 

TS = unit( K + VELdC) 

catTs 

Return 


If TS = 228: (original STARCODE was 46g, meaning sun) 

TS = unit( VEARTH + VELdC) (VEARTH has sun location) 
Return 

If TS = 234: (original STARCODE was 47g, meaning earth) 

TS = unit ( VSUN + VELdC) (VSUN has earth location) 
Return 

If TS = 24 O: (original STARCODE was 50g, meaning moon) 

TS = unit ( VMOON + VELdC) 


Return 

If TS> 240 , meaning STARCODE in range 51 q - 77g (for low six bits), 
improper results. N 7 O/N 7 I loads check for legal range, however. 

SXTSM 


T 

sight 


MRKBUFl 


dp 


XI = - "MRKBUFl" 


If STARIND = 0: (Tag here "SXTSMl", entered from "GETUM" ) 


MARKDOWNti = E. 
If STARIND = 1: 


(i = 0 - 6) ("GETUM" point, since 

STARIND = 0 in "ROO") 


MARK2DWIB-i = E. 

i-Xl 


(i = 0 - 6) 
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n 


CDUSPOT = 

Perform "SXTNB" 

Perform "TRG-*<’NBSM" (leaves line-of-sight in TS) 

Retiirn 

CAL53A (This is routine R50, entered from "P52D") 

Perform "S52.2" 

TS = CDU 

IfanydTS^ - THETAD.|)>^K^^^^ “^<''deg359^ (i = x,y,.) 

If IMJCADR ^ 0: 

Delay 1 second (by putting job to sleep via "DELAYJOB") 
Proceed to second previous line (recheck IMUGADR) 

Perform "MJCOARS" 

Perform "IMUSTALL": if error return, perform "217ALARM"; proceed 

otherwise, proceed 

Perform "IMUFINE" 


Perform "IMUSTALL": if error return, perform "217ALARM"; proceed 

otherwise, proceed 

IdPIPADT = TIMEl 
GCOlff - 0 

Set bit 15(DRIFTFLG) of FLAGWRD2 = 1 

[rEFSMMAt] = PsmJ 

Set bit 13(REFSMFLG) of FLAGWRD3 = 1 
Proceed to "P52C" 


R51 Entered from "PICEND" and "P52C" 

STARIND = 1 

Set bit 9(LMKTRG) of FLAGWRDl = 0 


sJ 
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If STARIND = 0: 


STARCODE = BESTI / 6 
If STARIND = 1: 

STARCODE = BESTJ / 6 
Perform "R51DSPA" 

If STARIND > 0: 

STARSAVl = TS 
If STARIND = 0: 


STARSAV2 = TS 

If (MODREG modulo 4) i 0: (i.e. P54 rather than P52) 

Perform "R 56 " (processing of mark ENTR could be delayed if 

R 67 is active) 

If (MODREG modulo 4) = 0: 


Perform "R52" 

Perform "SXTSM" (Tag here "R 5 IB") 


STARSAV2 = TS 

TS = T , , ^ 
sight 

Perform "PL4NET" 
If STARIND > 0; 


PLANVEC = unit( [rEFSMMAt] TS ) 
STARSAVl = STARSAV2 
STARIND = 0 


Proceed to 2nd line of "R51" 
STARAD = unit( [rEFSMMAtJ TS ) 
STARAC = STARSAV2 
STARBC = STARSAVl 
STARBD = PLANVEC 
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Perform "R54" 

If bit 3(FREEFLAG) of FIAGWRDO = 0: 

Proceed to "R 5 IK" 

Perform "AXISGEN" 

Proceed to "R55" (exits to "R53JK") 

TS = 00014g (Tag here also "R 5 IKA") 

Proceed to "GOFERFl" : if ternninate, proceed to "GOTOPOOH" 

if proceed, proceed 
othervd.se, proceed to "GOTOPCX)H" 

Proceed to "P52C" 

R61DSPA Entered from "R 5 I" and "R57" 

TS = 0170 

vn 

Perform "VNFLASHR": (if terminate, proceed to "GOTOPOOH") 

if proceed, skip next 2 lines 
othervd.se, proceed to previous line 

TS = IIO 2 and perform "BLANKET" (R3BLNK, R2BLNK) 

End of Job 

If STARCODE ^ -0 or if STARCODE > 50^: 

Set bit 7 (Operator Error) of channel 11 = 1 
Proceed to "R 5 IDSPA" 

TS = T 

novr 

Perform "PLANET" 

Return 

R54 (Tag also "CHKSDATA"; entered from "P 5 IB" and "R 5 I") 

Set bit 3(FREEFIAG) of FIAGWRDO = 1 
TS^ = cos"l (STARAD • STARBD) 

Set bit 3(FREEFLAG) of FIAGWRDO = 0 
TS 2 = cos“l (STARAC • STARBC) 

DSPTEMl = jlS^ - > with sign agreement forced 
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Set bit 3(FREEFLAG) of FIAGWRDO = 1 
TS = 0 


Perform "CLEANDSP" 

TS = 0605 

vn 

Proceed to "GOFLASH" : if terminate, proceed to "GOTOPOOH" 

if proceed, skip next line 
otherwise, proceed 

Set bit 3(FREEFLAG) of FLAGWRDO = 0 (e.g. a V32E response) 

Return 

R55 Entered from ''R 5 I" 

Perform "CALCGTA" 

TS = 0693 

vn 

Proceed to "GOFLASH": if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "R55RET" 

TS = "OGC" 


Perform "IMUPULSE" 

Perform "IMJSTALL" : if error return, perform "217ALARM" ; proceed 

otherwise, proceed 

Proceed to "R 55 RET" 

R59RET 

Set bit 4(PFRATFLG) of FLAGWRD 2 = 0 

Proceed to "R 5 IK" 

GYCRS Entered from "PERF20" and "P 52 D" 

= unit( (rEFSMMA^ 

= unite [REFSMMAtI Y^^) 

= unite [rEFSMMAt] 

Perform "CALCGTA" 

Set bit 15eDRIFTFLG) of FLAGWRD2 = 0 

Set bit 13eREFSMFLG) of FLAGWRD 3 = 0 
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TS = 1620 


vn 

O Perform "GODSPR" 

TS = "OGC" 

I 

Perform "IMUPULSE" 

Perform "IMQSTALL": if error return, perform "217 ALARM" j proceed 

othervd.se, proceed 

[refsmmat] = J 

Set bit 4(PFRATFLG) of FLAGWRD2 = 0 
Set bit 13(REFSMFLG) of FLAGWRD3 = 1 
IdPIPADT = TIMEl 
GCOMP = 0 

Set bit 15(DRIFTFLG) of FLAGWRD2 = 1 
If bit 7(AUT0SEQ) of FLGWRDIO = 1: 

Set bit l(PCFLAG) of FLGWRDIO = 0 (means did pulse torquing) 
^ Proceed to second line of "GOTOPOOH" 

Proceed to "R 5 IK" 

217ALARM 

Inhibit interrupts 

ALMCADR = "Calling address +1" (S-register portion) 

Perform "ALARM 2 " (pattern 0217g) 

Return (address in ALMCADR) 


I 
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Quantities in Computations 

See also list of major variables and list of routines 

IdPIPADT : See MJ Computations . 

ALMCADR: See General Program Control. 

ALPHAV: See Coordinate Transformations. 

ALT: See Coordinate Transformations. 

BESTI: Single precision value of index parameter for star #1 of the "best" 
star pair (as determined by "P52C" computations), scale factor B14. 

It will be zero if no star pairs found that are satisfactory, and 
otherwise will be equal to six times the "star number" (see K , ) 
when loaded in "P52C" computations. See BESTJ. 

BESTJ: Single precision valiie of index parameter for star ?^2 of the "best" 
star pair (as determined by "P52C" computations), scale factor BI4. 

It will be zero if no star pairs found that are satisfactory, and 
otherwise will be equal to six times the "star number" (see K , ) 
when loaded in "P52C" computations. Unless it is zero, it wi£5\e 
less than BESTI as loaded in "P52C" computations. In P52/P54, it is 
loaded with (STARCODE x 6), see "PLANET", for the first body that is 
used, while BESTI has the second; in P5l/P53> however, it contains 
(STARCODE X 6) for the second body, while BESTI has the first. In 
either case, however, BESTJ will contain the body code associated 
with the sighting data for which the address selected in "SXTSM" is 
MARK2DWN. "BESTJ" = "BESTI" + 1. 

CDUSPOT: See Coordinate Transformations. 

CEARTH: Value of the cosine of the minimum angle between the star and 
VEARTH allowed in "P52C" logic (l.e. in "OCCULT"), scale factor 
B2, computed in "S5O". It is stored in push-down list location 
I4D, which also has notation "CSS". 

CMOON: Value of the cosine of the minimum angle between the star and 

VMOON allowed in "OCCULT", scale factor B2, computed in "S5O" . It 
is stored in push-down list location 18D. 

CSUN: Value of the cosine of the minimum angle between the star and 

VSUN allowed in "OCCULT", scale factor B2, set to K in "S50" 

(a "variable" for indexing convenience in "OCCULT" )?®®^It is 
stored in push-down list location I6D. 

GCOIVIP: See IMU Computations. 

IMODES3O: See IMU Computations. 

IMUCADR: See IMU Computations. 

, : Constant, program notation "l/C", scale factor B-6, value 
° 4.2696E-5 X 2“1. Value corresponds to 2'/(9 •S35712E8 x 10“^ x 
O.3O4S), where first term (numerator) combines the B-6 scale factor 
and the 2“^ for constant, second is velocity of light (fps), thiixl 
converts to centi-seconds, and 4th converts to meters, givj-ng the 

4.2696E-5. 
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^Idsqrt3 ‘ program notation "1/SQR3", scale factor BO, value 

0.57735021. Value corresponds approximately to (I/I.732051), or 
the reciprocal of Used in "PLANET" to ensure no overflow for \mit. 

K^degs* Constant, program notation "5DBGREES", scale factor BO, imits 
revolutions. Value is O.OI38S8889, corresponding to 5 degrees. 

—cat' positions of 37 stars, program notation "CATLOG", stored 

as the X, Y, and Z components of a unit vector, scale factor Bl. 

The index for the table equals six times the star serial nimiber 
(since each component is double precision, six cells per star 
are used). See table below. Because of the nature of the 
interpretive index order (subtractive), the tag "CATLOG" actually 
is one cell after the least significant half of the z component of 
star #1, and #1 is the star with hipest memory address. 

K Constant, program notation "COS33", scale factor BO, value 

“ 0.8431756920. Value corresponds to cosine of 32° 31' 23.19", 

the same angle as that used with |]NB1NB^ (see Coordinate 
Transformations) . 

K Constant, program notation "CSS5", scale factor B2, value 

2490475. True value is 0.99619, corresponding to cosine 5°. 

K Constant, program notation "CSS33", scale factor B2, value 

css33o. 197002688. True value is 0.7^8010752, corresponding to 
cosine 38° (one half the angle reflected in hence the 

notation) . 

K //: Constant, program notation "CSS66", scale factor B2, value 
0.060480472. True value is 0.241921888, corresponding to 
cos 76° (angle gate was formerly 66°, hence the notation). 

K 66ao’ Constant, program notation "CSS664O", scale factor B2, 

value -0. 15602587. True value is -O.624IO348, corresponding 
to 0.241921888 - 0.866025368, or (cosine 76° - cosine 30°). 

Angle gates were formerly 66° and 40°, hence the notation. 

K : Constant, program notation "CSSUN", scale factor B2, value 
0.24148. True value is 0.96592, corresponding to cosine 15°. 

^deel* Constant, program notation "DEGREEl", scale factor BO, units 
revolutions. Octal value is 00056^. 37722rt, corresponding to 

about 1.033°. ® ® 

^dee359* Constant, program notation "DEG359", scale factor BO, units 

“ revolutions. Octal value is 37722g 00004g, corresponding to 

about 358.9893°. The single precision versions of this constant 

and K, sum to one revolution, 
degl 

-eclinol' constant, program notation "ECLIPOL", scale factor BO, 

value (0, -0. 3 953197 22E-4, 0. 91165 2662E-4 ) . Values correspond 
approximately to 0.993674E-4 (O, -0. 3978364, 0.9174565), where terms 
in parentheses are — sin cos K, , (see Coordinate 

Transformations), and first term is the radian equivalent of about 
20.496 arc seconds (the constant of aberration). 
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K , ; Constant, program notation "RSUBE" , scale factor B29, lonits 

®meters. Value is 6378166 x 2 ~^'. the Fischer equatorial radius. 

K , : Constant, program notation "RSUBM", scale factor B29, units 

meters. Value is 1738090 x 2“^9^ the mean lunar radius. 

K . oq! Constant, program notation "SIN33"i scale factor BO, value 
sinj):) 0.5376381241. Value is the sine of the angle discussed for K 

cos33 

K ^ : Constant, program notation "TSIGHTl^, scale factor B28, units 
° centi-seconds . Value is 24000 x 2 ~^°, corresponding to 
240 seconds. 

LANDALT, LANDLONG: See Orbital and Rendezvous Navigation. 

LONG: See Coordinate Transformations. 

MARK2DV\/N+i (i = 0-6): Set of optics mark information (double precision 
time, CDU , optics shaft, CDU , optics trunnion, and CDU 
respectively) loaded for downlink purposes from alignment mark 
for the body identified by BESTJ (loaded in "SXTSM"). 

MARKDOWN+i (i = 0-6): See Measurement Incorporation. 

MRKBUFl: See Optics Computations. 

OGC: See Coordinate Transformations. 

0PTI0N2: See Display Interface Routines. 

OPTNTYPE: See Orbital and Rendezvous Navigation. 

PLANVEC: Temporary storage for the output of the "PLANET" routine for 
the first body that is marked, scale factor Bl. In P51/P53 it is 
in reference coordinates, while in P52/P54 it is converted to 
IMU coordinates before being stored. 

RLS: See Coordinate Transformations. 

SAX: Unit vector, scale factor Bl, giving the direction of the optics 
shaft axis: stars are considered visible (for selection purposes) 
if they lie within 38° of this axis. The quantity is expressed 
in the reference coordinate system. 

STARAC, STARAD, STARBC, STARBD: See Coordinate Transformations. 

STARCODE: Single precision cell, scale factor BI4, displayed in R1 by N70/ 
N7I, and used to contain the serial number of the celestial body 
being sighted (0 for "planet", N88 input; 01-45 q for star in 
46g for sun; 47* for earth; and 50g for moon). Six times this 
number (for double precision vector indexing reasons) is stored 
in BESTI or BESTJ. 
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STARIND: Single precision cell, scale factor B14, used to cause two 
stars to be processed (or other bodies). If it is 1, BESTJ is 
used; if 0, BESTI. Initialized to 0 in "P51B" (P5l/P53) for first 
body and incremented to 1 for second; initialized to 1 in "R51" 

(P 52 /P 54 ) for first body and decremented to 0 for second. Also 0 in "ROO". 

STARSAVl: Temporary storage for sighting information (unit vector in IMU 
coordinates), scale factor Bl. Loaded in "P51B" with sighting 
vector to first body; in "R51", loaded briefly with reference- 
coordinate information (from "PLANET") for first body, and then 
loaded with sighting vector to first body. The reference- 
coordinate information is used in R52 for optics pointing 
purposes. 

STARSAV2: Temporary storage for sighting information (unit vector in IMU 
coordinates), scale factor Bl. See STARSAVl (STARSAV2 information 
is for second body instead of first, of course). 

STARSAV2.: Cells used by N8S for retention of "planet" information. N88 
treats decimal input as double precision fraction, and since a unit 
vector is formed before quantity used (with components previously 
multiplied by , ^), the DSKY input can be with arbitrary (but 

consistent) scaling. ^ 


T • Value of sighting time, scale factor B28, units centi-seconds . 

It is loaded in "SXTSM" with the time at which the optics mark 
was made (for use in "PLANET" for computing earth, moon, or sun 
positions at that time in "S 5 O" if required). It is also used 
in "P52B" to retain the input time for computation of the landing- 
site orientation, and in "P52C" to contain present time incremented 
by K for "S50" use in determining "OCCULT" body positions. 


VEARTH: Quantity computed in "S 5 O" as the earth position (scale factor 
Bl, a \jnit vector, when exit from routine) at time T . , , . It 
has storage address the same as "STARAD" (hence at sta?i®or 
"PLANET", VSUN and VEARTH are traded as far as storage locations 
are concerned, for convenience in subsequent indexing). 


VELdC: Vector, scale factor Bl, giving "aberration correction vector" 
(see K ^)defined as "velocity of vehicle with respect to s\m 

divide? oy^elocity of light." It is computed in "S 5 O" and used 
in "PLANET". Also computed and used in "UTAREAl". 

VMOON: Quantity computed in "S 5 O" as the moon position (scale factor 
Bl, a unit vector, when exit from routine) at time T . , . It 

has storage address the same as "STARAD" + 12. 

VSUN: Quantity computed in "S50" as the sun position (scale factor 
Bl, a unit vector, when exit from routine) at time T . , , . It 
has storage address the same as "STARAD" +6 (see VEA^Mir 


— smd^ 


— smd’ — smd‘ vectors, scale factor Bl, giving desired stable 

member orientation. Loaded by "P52B" or "S40.2,3(B)", or can be 
loaded by P27 ( X_^^ address is 0306g, the same as "UPBUFF" +2). 
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Values of K . (Star Table) 
~cat/ 


Display Index 


X Component Y Component 


Z Component 


Identification 


01 

02 

03 

04 

05 

06 
07 
10 
11 
12 

13 

14 

15 

16 
17 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

41 

42 

43 

44 

45 


6 0.8747608555 0 
12 0.9342466124 0 
18 0.4773424940 0 
24 0.4918322686 0 
30 0.0128995818 0 
36 0.5448995598 0 

42 0.7028937840 0 
48 0.4101921571 0 
54 0.3502769546 0 
60 0.2007345455 0 
66 0.1367280274 0 
72 -0.0616090080 0 
78 -0.1824340636 0 
84 -0.4122762536 0 
90 -0.3613649782 0 
96 -0.4661511162 0 
102 -0.7745052221 0 
108 -0.8610673209 0 
114 -0.9657334280 0 
120 -0.9524366380 -0 
126 -0.4521486548 -0 
132 -0.9168160791 -o 
138 -0.5812217481 -0 
144 -0.6895375091 -0 
150 -0.7860186221 -0 
156 -0.5324545035 -0 
162 -0.3511952476 -0 
168 -0.1142900725 -0 
174 -0.1120382967 -0 
180 0.1219537054 -0 
186 0.2074286490 -0 
192 0.4540867784 -0 
198 0.5524232365 -0 
204 0.3205423120 -0 
210 0.4542117996 -0 
216 0.8141988673 -0 
222 0.8345006310 -0 


. 0264803244 0 . 4838307948 
.1739271769 -0.3113400137 
.1168141178 0.8709182540 
.2207092653 -0.8422520048 
.0078096205 0.9998862988 
.5317389073 -0.6483349473 
.7078988678 0.0694227718 
.4989947555 0.7633784305 
.8927907521 0.2832502918 
.9691236271 -0.1431958012 
.6814364033 0.7189922632 
.6031289258 -0.7952608559 
.9404062129 -0.2869738089 
.9063680102 0.0923326629 
.5745656444 -0.7343634472 
. 4772744503 0 . 7449243 154 
. 6149043688 -0 . 1484394758 
.4632386329 0.2096974909 
.0521664164 0.2542392790 
. 0597677121 -0 . 2988181236 
.0495728431 -0.8905639377 
.3506241694 -0.1910784362 
.2911759648 0.7598669864 

.4185354938 -0.5910719617 
.5221457573 0.3309660611 
.7163035719 0.4510004372 
. 82423 22268 -0 . 4441881743 
.3400201762 -0.9334474056 
. 9695442116 0 . 2177876068 
.7702168243 0.6260138474 

.8718956797 -0.4435890882 

.8777450759 0.1528685033 
.7930716636 -0.2566435348 
.4434583652 -O.8370169O8I 
. 5390337930 0 . 7093195408 
.5553601830 0.1692786800 
.2388718657 -0.4965369357 


Andromedae 
^ Ceti 

y Cassiopeiae 
Eridani 
Ursae Minoris 
& Eridani 
Ceti 
Persei 
^ Tauri 
3 Orionis 
Aurigae 
^ Carinae 
0^ Canis Majoris 
Canis Minoris 
V' Velorum 
<- Ursae Majoris 
Hydrae 
^ Leonis 
Leonis 
y Corvi 
«<’ C rue is 
^ Virginis 
^ Ursae Majoris 
& Centauri 
Bootis 

^ Coronae Borealis 
^ Scorpii 

Trianguli Australis 
Ophiuchi 
•X Lyrae 
er Sagittarii 
Aquilae 
$ Capricorni 
Pavonis 
bCCygni 
€ Pegasi 

<5<Piscis Austrini 


The "Display" colimin gives the star number that is displayed by the 
program (as an octal quantity). The "Index" column gives the value of 
BESTI (or BESTJ) for the corresponding star, and is equal to six times 
the star serial number (i.e. six times the decimal equivalent of the 
first column) . 


A display of 00 indicates an N88 input; displays of 46, 47 > and 50 are for 
sun, earth, and moon respectively. 
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Mathematical Fimctions 


Sine 

Routine entered with argiunent in MPAC^p, scale factor BO, units 
revolutions. Leaves MPAC^p with sine of argument, scale factor Bl. 

X = MPAC , 
dp 

Perform "SICOM" 

MPACdp = TS 
Return 


SICOM 


If X = 5 sgn X - X 

If 111 ^ X = 5 sgn X - X 

X = X, rescaled to scale factor B -1 revolutions, i.e. Bl in^f/s) 
TS = X + x 3 + x 5 + x'? + x’ 

Return 

ir /2 units 


Constant 

Scaling 

Stored Value 

True Value x * 

Ksnl 

B 2 

0.39269 90796 

0.99999 9995 

^sn 3 

BO 

-0.64596 37111 

-0.16666 6567 

''^sn 5 

B -2 

0.31875 8717 

0.00833 3025 

^snV 

B-U 

- 0.07478 0249 

-0.00019 8074 

^sn 9 

B -6 

0.00969 4988 

0.00000 2603 


According to the program comments, the constants are derived 
from a Hastings series. 


Cosine 


Routine entered with argiunent in MPAC^ , scale factor BO, units 
revolutions. Leaves MPAC^ with cosinfe of argument, scale 
factor Bl. ^ 

l = i- iMPiC^pl 


units . 


MATH-1 


Perform "SICOM" 


MPAC, 

dp 

Return 


TS 


Single Precision Sine (sin ) 
sp 


Routine entered with argument in computer hardware accumulator, ACC, 
single precision, scale factor B- 1 , units revolutions. Leaves 
sine in hardware accumulator, scale factor BO. 

X = ACC 

Perform "SPSICOM" 

ACC = TS 
Return 
SPSICOM 

If |X| ^ i, X = 5 sgn X - X 

If |xl ^ 

TS = MAX sgn X 
Return 

X = X, rescaled to scale factor B -2 revolutions, i.e. BO in^TT /2\ units . 


TS 

X + K ^ x 3 

c 3 sp 

+ K p x^, 
c 5 sp 

limited in magnitude i 1 

Return 




Constant 

Nominal Value 

Stored Value 

True Value x (2/TT)^ 

^clsp 

0.7853134 

0.78533935 

0.999925 

^c 3 sp 

-0.3216147 

-0.32159423 

-0.165951 

^c 5 sp 

0.0363551 

0.03637695 

0.007608 


All constants have scale factor Bl, for Tr/2 units. 

Single Precision Cosine (coSgp) 


Routine entered with argument in computer hardware accumulator, ACC, 
single precision, scale factor B- 1 , units revolutions. Leaves 
cosine in hardware accumulator, scale factor BO. 


MATH -2 


X = ACC + i 

If IXl^i: 

X = - (X - i sgn X) 
Perform "SPSICOM" 

ACC = TS 
Return 


Arc Sine 


Routine entered with argument in MPAC^p, scale factor Bl. Leaves 
MPAC, with arc sine of argijment, scale factor BO, units revolutions, 
in range - ^ (i.e. - 90°). 


X = MPAC, „ 
tp 

Perform "ARCCOM" 


MPAC, = i - TS 

dp 


Return 

ARCCOM 


If \X| = 0, TS = Return 
TS^ = X 
X = |xl 

If X ^ (l + 2“12), or 1.000244, or if least significant half of 
X is negative and X > (l + 2“13), or 1.000122: 

Perform "ALARM" (pattern 1301g) 

If X 1, set TS = 0 (for TS^ positive) or TS = -g (for TS^ 
negative); Return 
1 

TS = (l - X)2 (scale factor Bl when enter square root routine) 
TS = TS(K^30 + X + x3 + x'* + X? + 

''as6 ' 


MATH-3 


If TSj_ negative, TS = g - TS 
Return 


Constant 

True Value 

>f 2 TT X True Value 

^asO 

0.35355 3385 

1.57079 

6302 

Kasl 

-0.04830 17006 

-0.21459 

8801 

^as2 

0.02002 73O85 

0.08897 

8987 

\s 3 

-0.01129 31863 

-0.05017 

4305 

K , 
as 4 

0.00695 311612 

O.O3O89 

1881 

K c 

as 5 

-0.00384 617957 

-O.OI7O8 

8126 

^as 6 

0.00150 1297736 

0.00667 

0090 

^as 7 

- 0.00028 4160334 

-0.00126 

2491 

All constants are stored with scale factor B-I in program 
(e.g. r has scale factor B- 5 ); the VT factor is required 

because fl - X) is scaled at B 1 when take its square root. 

The numbers in the last column agree closely with published 
Hastings series values. 


Arc Cosine 



Routine entered 
MPACdp with arc 
in range 0 - g ( 

with argiiment in MPAC^ , scale factoi- Bl. Leaves 
cosine of argixment, sc&e factor BO, units revolutions 
i.e. 0 ° - 180 °). 


X = MPAC^p 
Perform "ARCCOM" 

MPACdp = TS 
Return 

Square Root 

Routine entered with argument in MPAC^ , and with scale factor (in 
general) an even number. Leaves MPAC-j^p with square root of argument , 
having scale factor one-half the scale factor of argument (a factor 
must be accounted for elsewhere if the scale factor was odd when enter 
the routine ) . 

X = MPACdp, considered to have scale factor BO 


MATH -4 


If X = 0, MPAC^p = 0; Return 

If X < -2"^, proceed to "POODOO" (pattern 21302- ) 

8 

If X < 0, MPAC^p = 0; Return 

TS = X, normalized to lie between 5 and < I. This is accomplished 
by shifting X left in increments of 2 shifts, and storing 
the required number of shifts in (an even number ^ O) 

If TS i, TS2 = 0.5884 TSgp + 0.4192 

If TS < i, TSo = 0.8324 TS^„ + 0.2974 

TS2 = (i i TS^ (TS^ single precision) 

TS = J TS2 + i TS / TS2 
If TS ^ 1, TS = (1 - 2"28) 

MPAC^p = TS, shifted right by (5 TS^) places 
Return 


Natural Logarithm (log^) 

) 

This routine is entered from "RANGER", with the argument in MPAC , 
scale factor BO. It leaves the natural logarithm of the reciprocil 
of the argument (or the complement of the logarithm of the argument) 
in MPAC^p, scale factor B5. 

LOG 


TS = MPAC|^p, normalized to lie between g and •< 1. This is 
accomplished by shifting MPAC^^p left and storing the 
required number of shifts in TS^ (a number ^ O). 

X = 1 - TS (The "1" actually is 1 - 2~^^) 


” ‘'oogl + "ogl^ 

Return (with value of - log^ of original MPAC^p) 

All constants are stored with scale factor B5. The value of 
Kcogi corresponds to log^ 2. 
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Constant 

^cogl 

"ogl 

"og2 

^og3 


Stored Value 

0.0216608/4,94 

0.031335467 

0.0130145859 

0.0215738898 


True Value 

0.693 147 I8O56 

1.00273494 

0.4164667488 

0.6903644736 


MTH-6 


Measurement Incorporation 


INCORPl 


^ BVECTORq + 

-1 ^ M BVECTORq + 


N 

N 


BVECTO^ + 


4 - N 

If bit 9(DMENFLG) of FLAGWRD5 = 0: 


N 
N 

BVECTOR^ + ly^J 


BVECTOR^ + 
BVECTOR, + 


'iil 


BVECTOR 2 

BVECTOR 2 

BVECTOR^ 


(means 6-dimensional 
incorporation) 


Z2 = 0 


TRIPA=|^|^ l-al^ VARIANCE 

Ts = n/tripa variance ‘ 


GAMMA = l/(TS + TRIPA) 

DEIi^DA = DELTAQ / TRIPA 
Set TS^ to the largest j^j 


computed quasi-floating point 
(TRIPA rounded to double precision 
before multiplication use) 

computed quasi-floating point 

computed quasi-floating point 


(i = 0, 1, 2) 


TS 2 = (number of leading zeros in TS^) - 2 
Shift each left by TS 2 places (i = 0, 1, 2) 

OMEGAq = ^ [wj + z, pg + [Wj] 

OMEGA^ = Zo [W3] + Zj fwj + Z^ [Wj] 

OMEGAa = 2o K] + 2l + ^2 W 

If bit 9 (DMENFIjG) of FLAGWRD5 = 0: 


(tag here "NEWZCOMP") 

(value used for 
subseqiient scaling) 


OMEGA^ = 0 



DELTAQ = DELQDA 

OMEG^ 

computed 

DELTAX^ = DELQDA 

OMEGA^ 

quasi-floating 

DELTAX 2 = DELQDA 

OMEGA^ 

point 

Return 




INC0RP2 


EGRESS = Return address 
Perform "INTSTALL" 


OMEGAl^ = GAMMA OMEG^ 
OMEGAM^ = GAMMA OMEGA^ 
OMEGAM 2 = GAMMA OMEGA^ 


MEAS-1 


Set bit 13 (INTGRAB) of FLGWRDIO = 1 


(means restart phase change) 


OMEGAI^ 
- (Z^) OMEGAl^ 


M = ["ol - 

[“i] ■ M 

N = [^l - 

[wj = [wj - (Z^) OMEGAM^ 


NOTE: Notation means computation 
carried out as: 


OMEGAM 


W “ f"o] - 


■"OjX 

^ 0,7 

7 

‘‘O, z_ 


OMEGAM 

-0 


If bit 9 (DMENFLG) of FLAGWRD5 = 1: (9-<iimensional incorporation) 


[»2] = N - (%) 

W = w - 

OMEGAM 

-0 

OMEGAM^ 

All W-matrix updating 

N = M - (2o) 

OMEGAM 2 

computations performed 
quasi-floating point 

W = [“ 7 ] - (%) 

OMEGAM 2 


1 

II 

OMEGAM 2 


TX782 = X782 + DELTAX^ 

(Tag here 

"FAZC") 


If bit 8 (CSMUPDAT) of FUGWRDl = 1: 
Perform "MOVEPCSM" 


If bit 8 (CSMUPDAT) of FLAGWRDl = 0: 


Perform "MOVEPLEM" 


Reset overflow indicator 
X2.= 0 

If bit 12(CM00NFLG) of FLAGWRD 8 = 1: 

X2 = 2 

TS = TDELTAV + (DELTAX^ shifted left 7 + X2 places) 
If overflow has taken place since indicator reset: 

RCV = RCV + DELTA^ 

VCV = VCV + DELTAX^ 

PBODY = X2 (O for earth, 2 for moon) 
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(If overflow has taken place since indicator reset): 

Perform "RECTIFY" 

Proceed to "FAZAB3" 

TDELTAV = TS 

TS = TNUV + (DELTAX^ shifted left 4 + X2 places) 

If overflow has taken place: 

VCV = VCV + DELTAX^ 

PBODY = X2 
Perform "RECTIFY" 

Proceed to "FAZAB3" 

TNUV = TS 

Proceed to "FAZAB3" 

FAZAB3 

If bit 8(CSMUPDAT) of FLAGWRDl = 1: 

Perform "MOVEACSM" 

If bit l(AVEMIDSW) of FLAGWRD9 = 0: 

R ^ RCV + TDELTAV (X2 used to 

V = VCV + TNUV necessary 

T = T 
pptm et 

If bit 8(CSMUPDAT) of FLAGWRDl = 0: 

Perform "MOVEALEM" 

R . , = RCV + TDELTAV (X2 used to 

-other - - ' 

—other ~ TNUV necessary 

If bit 9(DMENFLG) of FLAGWRD5 = 1: (9-dimensional incorporation) 

X7&2 = TX782 
QPRET = EGRESS 

Proceed to "INTWAKE" (returns to address in QPRET) 


determine 

shifts) 


determine 

shifts) 
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V67CALL Established by "V67" for a verb 67 . 


Reset overflow indicator 
Perform "INTSTALL" 


WWOPT =- 0 

WWPOS- x/i^^ +1%!^ +|W6(^ +i!!i9(^ I%2l^ 


( i • e • — 2 ) 
i = 0-5) 


WWVEL 


v/fy" ^i%4" ny 


( 1 • 0 • ^ 

i = 9 - 14 ) 


If overflow has taken place since indicator reset: 

WWPOS = +MAX (2^9 _ 2-9 meters) 

WWVEL = +MAX (N99 R2 display 328.1 fps) 

If WWPOS - K^t999 >° = 

WWPOS QQQ (constant gives display of 99997 feet) 

Itjyyy 

Perform "INTWAKE" (returns to next line) 

TS = 0699 

vn 

Proceed to "GOXDSPF" : if terminate, proceed to "ENDEXT" 

if proceed, proceed 

otherwise, proceed to previous line 

If WWOPT = 0: (no change in W-matrix initialization cells 

desired) 

Proceed to "ENDEXT" 


TS^ 

- WWPOS 

1 

sp 

TS„ 

= WWVEL 

2 

sp 

If WWOPT = 2: 


WORBPOS = TS^ 
WORBVEL = TS^ 
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If WWOPT > 2: 


WMIDPOS = TS^ 

WKEDVEL = TS 2 
If WWOPT <2: 

WRENDPOS = TS^ 

WRENDVEL =182 

Set bit 6 (ORBWFIAG) of FLAGWRD 3 = 0 (must set RENDWFLG = 0 

by e.g. V93E) 

Proceed to "ENDEXT" 

GETUM 

Perform "SXTSM" starting at third line (STARIND = 0 from "ROO") 

TS = TS jREFSMMA'^ 

Return 

BVECTORS 

BVECTORq = unit(USTAR * unitRCLP) 

USTAR = BVECTORq 

DELTAQ = |rCIP| (cos"^ (BVECTORq * UM) - (i = 90°) 

BVECTOR^ = 0 
BVECTOR2 = 0 
Return 

9DWT06DW (Entered from "S 22 . 98 IX" and "S22GTP’') 

9DWXX = Return address 
9DWP = 0 
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9DWJ - 29 
9DWI = 9DWJ 
Proceed to "9DWEPCAL" 
9DWEPCAL 

Perform "ROWDOT" 

®^TR^20-9DWP = 

9DWP - 9DWP + 1 

If 9DWI ^ 0: 

9DWI = 9DWI - 1 

If 9DWI = 26: 

9DWI = 2 

Proceed to "9DWEPCAL'’ 
If 9DWJ ^ 0: 

9DWJ = 9DWJ - I 
If 9DWJ = 26: 

9DWJ = 2 
9DWI = 9DWJ 
Proceed to "9DWEPCAL" 
9DWJ = 29 
9DWP = 0 
9DWI = 0 
9DWN = 0 

= 0 (i = 0 - 53) 
Proceed to "9DWI=JA" 
9DWI=JA 

9DWI = 9DWJ 
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Perform "ROWDOT" 


TS = EMATRIX2o_9dwp " TS 
9DWP = 9DWP + 1 
XI = - (9DWI + 9DWN) 

If TS ^0: 

TS^ = 

If TS < 0: 

TS^ = 0 

WORKW = TS^ 

If 9DWJ = 0: 

= 0 (i = 54 - 80) 

Proceed to address specified by 9DWXX 
Proceed to "TST2I=0" 

TST2I=0 

If 9DWI = 0: 

9DWN = 9DWN + 3 
9DWJ = 9DWJ - 1 
If 9DWJ = 26: 

9DWJ = 2 

Proceed to "9DWI=JA" 

9DWI = 9DWI - 1 
If 9DWI - 26: 

9DWI = 2 
Perform "ROWDOT" 

TS = (EMATRIX2Q_gj3^ - TS) / WORKW 
9DWP = 9DWP + 1 
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XI = - (9DWI + 9DWN) 

If overflow has taken place since indicator reset: 


TS = 0 



TS 


Proceed to "TST2I=0" 


ROWDOT 

Reset overflow indicator 
TS^ = 8 
XI = - 9DWI 
X2 = - 9DWJ 
TS = 0 

Proceed to "ROWDOTl" 

ROWDOTl 

TS = ^-X2 (modulo computer word length) 

If no overflow has taken place: 

XI = XI - 3 (scaled B13) 

X2 = X2 - 3 (scaled B13) 

If TS^ > 0: 

TS^ = TS^ - 1 
Proceed to "ROWDOTl” 

Return (TS set to sum) 

Set bit 6(0RBWFLAG) of FLAGWRD3 = 0 (overflow indicator reset) 
Return 

R22 (Established by "NDUTINPT" for P20 option 0/4, and entered due 

to restart group 2.7) 

Change priority of present job to 26- (restart group 2.7 has 10- 

for establishing "R22") 
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MEKBUFl = -3 
VHFTIME = T 

now 

Proceed to "RENDl" 

RENDl 

Change restart group 2 to cause a start at next line (subsequent 
restart logic not shown unless significant for normal logic) 

Perform "WAITONE" 

If MElKBUFlilO: (Tag here "RENDU") 

Proceed to "REND3" 

Inhibit intermpts 

MARKTIME+i = MRKBUFl+i (i = 0 - 6) 

MRKBUFl = -3 

Set bit 7(R22CAFIG) of FLAGWRD9 = 1 (for "MKREJECT" use) 

Release interrupts 

Set bit 8(VHFS0URC) of FLAGWRD9 = 0 

Proceed to "REND4" 

REND3 


Change restart gropp 2 to cause a start at next line 
Perform "WAITONE" 

If bit 9(VHFRFLAG) of FLAGWRD9 = 0: 

Proceed to 3rd line of "RENDl" — 

If bit 9(RANGFLAG) of FLGWRDIO = 0: (set 0,. then. 1 if appropriate, 

in "CRS61.1", run at lower 

Proceed to 3rd line of "RENDl" priority than "R22" (hence R22 could 

iniex'rupt between 0 and 1 selLing)) 

If (T - K.- , - VHFTIME) < 0: 

now oOsecdp 

Proceed to 3rd line of "RENDl" 
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Inhibit interrupts (Tag here "RANGERD" ) 

Set bits 4-1 (Radar selection) of channel 13 = 0 
Proceed to "RADSTART" 

RADSTART 

TS = channel 4 

TS^ - (bits 5-1 of TS) 

RADDEL = bits 5-1 of (00040^ - TS^) 

If RADDEL ^ 00002g: (bit 6 of channel 4, in phase with 100 pps 

signal used for radar control, about 
Proceed to "RADSTART" to be incremented) 

Set bits 1 and 4 (VHP select and Radar initiate) of channel 13 = 1 

RADTIME = - TS 

Release interrupts 

MARKTIME = T 

now 

Set bit 10 (SKIPVHF) of FLAGWRD2 =0 (set 1 in "STARTSB2") 

End of job 

VHFREAD (Entered based on program interrupt #9> Radar Rupt) 

If bit lO(SKIPVHF) of FLAGWRD2 = 1: (set in "STARTSB2") 

Resume 

If bit 7(UPDATFLG) of FIAGWRDl = 1: 

If bit 12(PDSPFLAG) of FLAGWRD4 = 0: (R61 not doing R60) 

RM = RNRAD 

If bit 2(VHF Data Good complement) of ch.annel 33-0: 
Establish "KANGeRDI" (priority 26 g) 

Resume 

VHFRANGE = 2. (bit 2 of channel 33 = 1, flag "LIGHTON" 

to set Tracker light) 

Skip next line 

VHFRANGE^p = 0 (UPDATFIG = 0 or PDSPFLAG = l) (Tag "BYPASSl") 
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Establish "LIGHTON" (priority 26g) 

Resume 

LIGHTON (Established by "VHFREAD" for unsuccessfiil radar read) 

If VHFRANGE 4 0 : 
sp 

Set bit S(Tracker) of DSPTABtll = 1, and flag for output at 
next opportunity 

VHFTIME = MRKTIME 

Proceed to "RENDl" 

RANGERDl (Established by "VHFREAD" for successful radar read) 

Inhibit interrupts 

Set bit 8(Tracker) of DSPTAB+11 = 0, and flag for output at next 
opportunity 

Set bit 7(0CDUFBIT) of OPTMODES = 1 
Release interrupts 
If RM = +0: 


Proceed to 3rd line of "LIGHTON" 

If bit 15 of RM = 0: 

TS = K (RM, 0) 

convrnge ^ 

If bit 15 of RM = 1: (including case of 77777g) 

TS = bits 14-1 of RM 

TS = K (TS, 0) + 2^^ K 

convrnge ^ convrnge 

VHFRANGE = TS (Tag here "RANGERD2") 

Set bit 8(VHFS0URC) of FLAGWRD9 = 1 
VHFTIME - MARKTIME 


Proceed to "REND4" 

REND4 (Entered from "RANGERDl" for VHF measurement, and from 

"RENDl" for an optics measurement) 

Perform "SETINTG" 
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If bit 8(CSMUPDAT) of FIAGWRDl = 1: 

Set bit 3(CSMINTSW) of FMGWRD3 = 0 
Perform "HJTEGRV" 


Perform "SETINTG" 

If bit I(RENDWFLG) of F1AGWRD5 = I: 

Set bit l(WMATINT) of FIAGWRD3 = I 

If bit 8(CSMUPDAT) of FLAGWRDI = 0: 

Set bit 3(CSMINTSW) of FLAGWRD3 = 0 

Perform "INTEGRV" (when exit, LM and. GSM vectors both integrated 

"permanently" to MARKTIME) 

X2 = 0 

If bit I2(CM00NFLG) of FLAGWRD8 = 1: 

X2 = -2 

Set bit 6(0RBWFLAG) of FLAGWRD3 = 0 

CSMPOS = + (DELTAV^^ shifted right 7 - X2 places) 

Set bit II(FSTINCRP) of FLAGWRD5 = I 

LEMPOS = RCV.^ ^ + (DELTA shifted right 7 - X2 places) 

If bit 7(AUT0SEQ) of FIGWRDIO = I: 

Proceed to "AUTOW" (exits to "REND5C" if initialize, or "REND7" 

if don't) 

If bit l(RENDWFIG) of FLAGWRD5 = I: 

Set bit I(RMDWFLG) of FLAGWRD5 = 1 (redundant. Tag "REND6") 
Proceed to "REND7" 


Proceed to "REND5C" 

REND5C 

VHFCNT = 0 

TRKMKCNT = 0 (as "least significant half" of VHFCNT) 

= 0 (i = 0 - 17 ) (i.e. and j^wj) 

= 0 (i = 27 - 44) (i.e. fw^' 


and j ) 
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W. = WRENDPOS 
1 


n 


O 


(i = 0 , 4 , S, diagonal elements of rop 
= WRENDVEL (i = 36 , 40 , 44, diagonal elements of 

Set bit 8 (P 35 FLAG) of FLGWRDIO = 0 
AGEOFW = MARKTIME 

Set bit 4(PTV93FbG) of FLGWRDIO = 0 
C0UNT3MK = 1 

Set bit l(RENDWFLG) of FUGWRD5 = 1 
Proceed to "REND?" 

REND? 

RCLP = LEMPOS - CSMPOS 

If bit 8(VHFS0URC) of FLAGWRD9 = 0: (i.e. have optics data) 

UCL = unitRCLP 

If bit ll(FSTINCRP) of FLAGWRD 5 = 1 : 

XI = - "MARKTIME" 

Perform "GETUM" 

UM = TS 


TS = UCL UM 

If all components of TS <2 rad: 

Proceed to "RENDISP3" 

USTAR = unitTS 


(so unit vector 
overflow) 


Perform "BVECTORS" (Tag here "REND9") 

If bit 8 (CSMUPDAT) of FLAGWRDl = 0: 

RVECTOR^ - - BVECTORq 

If bit 14(R21MARK) of FLAGWRD2 =1: (i.e. prime optics) 


TS-, = K ^ + K. 

1 sxtvar imuvar 

If bit 14 (R 21 MARK) of FLAGWRD2 = 0: 


TS, = C _ + K. 

1 altvar imuvar 


(i.e. R23 optics) 
(Tag here "RENDI 5 ") 
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If bit 8(VHFS0URC) of FLAGWRD9 =1: (i.e. have VHF ranging data) 

BVECTORq = unitRCIP (Tag here "REND14") 

BVECTOR^ = 0 
BVECTOR^ = 0 

TS = VHFRANGE (scale factor B27) 

If bit 12(CM00NFIG) of FLAGWRD8 = 0: 

Shift TS right 2 places (rescale to B29) 


Set bit ll(FSTINCRP) of FLAGWRD5 = 1 

DELTAQ = TS - (rCLP ( 

If bit 8(CSMUPDAT) of FLAGWRDl = 1: 

BVECTO^ = - BVECTO^ 

TS, = C 
1 rvar 

TS = ( I RCLP j^) TS^ Computed quasi-floating point 
X2 - 0 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

X2 = -2 


(Tag here "REND 10") 


If X2 = 0: 

Shift TS left 2 places (to scale factor B40) 
If X2 = -2: 


Shift TS right 2 places (to scale factor B40) 


VARIANCE = TS^ + C. ^ 

tp intvar 

If bit 8(VHFS0URC) of FLAG'WRD9 = 1: 


If (VARIANCE + C . ) < 0: 

rvarmin ^ 


rvarmin 


J 


VARIANCE - Ic 

» 1 

Set bit 9(DMENFLG) of FLAGWRD5 = 0 
Perform "INCORPl" 


(C . negative) 
rvarmin “ 


(means 6-dimensional incorporation) 
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If bit ll(FSTINCRP) of FIAGWRD5 = 1: 

X2 = 0 

If bit I2(CM00NFLG) of FLAGWRD8 = 1: 

X2 = -2 

N49DISFH-2 = ( |DELTAX^j shifted right -X2 places, to B7) 

N49BISP = (jDELTA^j shifted right -X2 places, to B29) 
N49DISPt4 = 2 

If bit 8(VHFS0URC) of FLA.GWRD9 “ 0: (processing optics) 

If bit 12(REJCTFLG) of FIGWRDIO = 1: (set in "MKREJECT" ) 

Proceed to "RENDISP3" 

N49DISPt4 = 1 

If - N49DISP)<0: ("N49DISP" same as "BVECTORq") 

Proceed to "RENDISP" 

If (C^g^ - N49DISPt2)<0: 

Proceed to "RENDISP" 

Proceed to "REND12" 

RMD12 

Perform "INC0RP2" (incorporates update, same time tag as from 

, . "REND4" integration) 

If bit ll(FSTINCRP) of FIAGWRD5 =1: 

OLDMKTME = MARKTIME 

Set bit 5(MANEUFLG) of FLGWRDIO == 0 

TS = C0UNT3MK 

If TS ^ 0: 

If (TS - 3) ^0: 

C0UNT3MK = 0 

If (TS - 3) < 0: 

C0UNT3MK = C0UNT3MK + 1 
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If bit 8(VHFS0URC) of FLAGWRD9 = 1: (Tag here "RMD12A") 

VHFCNT = VHFCNT + 1 
Proceed to "RMDISP3" 

If bit ll(FSTINCRP) of FIAGWRD 5 = 0: (i.e. 2nd optics incorporation 

has been completed) 

TRKMKCNT = TRKMKCNT + 1 
Proceed to "RENDISP3" 

X2 = 0 

If bit 12(CM00NFLG) of FIAGWRD8 = 1: 

X2 = -2 

If bit 8(CSMUPDAT) of FLAGlfl/RDl = 1: 

CSMPOS = + (DELTAV^^ shifted right 7 - X2 places) 

If bit 8(CSMUPDAT) of FLAGWRDl = 0: 

LEMPOS = shifted right 7 - X2 places) 

Set bit ll(FSTINCRP) of FLAGWRD5 = 0 
Proceed to "REND7" 

RENDISP 

TEMPORl = +0 

Establish "RENDISP2" (priority 27^) 

O 

Allow performance of higher priority jobs (e.g. "RENDISP2") 

If TEMPORl =0: (i.e. display not answered yet) 

Proceed to second previous line 
If TEMPORl ^0: (i.e. a PRO display response) 

Proceed to "REND12" 

Proceed to "RENDISP3" 

RENDISP2 (Established by "RENDISP") 

TS = 0649 

vn 
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Proceed to "PRIODSP" : if terminate, proceed to "TRACKTRM" 

if proceed, TS = -1 and proceed 
otherwise, TS = QRBG- and proceed 

TEMPORl = TS 
End of job 

RENDISP3 (Entered at end of each mark-processing pass) 

Set bit 7(R22CAFIG) of FLAGWRD9 = 0 
Set bit 12(REJCTFLG) of FlfiWRDlO = 0 
If bit 8(VHFS0URC) of FUGWRD9 = 1: 

Proceed to "RENDl" 

Proceed to "REND3" 

WAITONE 

POINTEX = Return address 

Delay 4 seconds (by putting job to sleep via "DELAYJOB") 

If bit 7(RNDVZFLG) of FLAGWRDO = 0, End of job 

If bit 13(REFSMFIG) of FLAGWRD3 = 0, End of job 

If R61CNTR <0: (R61 maneuver in process, required 

DSKY for R60) 

Proceed to second line of "WAITONE" 

If bit 7(UPDATFLG) of FLAGWRDl = 1: 

Proceed to address specified by POINTEX 
If bit 5(TRACKFLG) of FLAGWRDl = 0, End of job 
Proceed to "RED0R22" 

RED0R22 (Entered from "WAITONE" and due to restart group 2.13) 

Set restart group 2 to phase 13 (2.13, cuuoing "RED0R22" to be 
established with priority lOg if a restart) 

Change priority of present job to 26g 

Proceed to second line of "WAITONE" 
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SETINTG 


Perform "INTSTALL" 


Set bit 5(STATEFLG) of FLAGWRD 3 = 1 


T 

decl 


= MARKTIME 


Set bits 4(C0NICINT), 2(9DIMWMAT), and l(WMATINT) of FLAGWRD 3 = 0 


Set bit 3(CSMINTSW) of FLAGWRD 3 = 1 


Return 

C13STALL 

If bit 4 (Radar initiate) of channel 13 = 0: 
Return (no VHF read in progress) 


TS^ = channel 4 

'^^3 “ + RADTIME + 2 modulo 2^ (corrects for possible channel 


TS, = _ + RADDEL - TS 

4 90 mscalr ^3 

If TS, O’: 

4 — 

Return 


4 overflow since RADTIME 
loaded, and gives "true" time 
difference) 


If TS, + 
4 


^mdtscalr ^ ^ 


Return 


Proceed to third line of "CI 3 STALL" (a NOOP order used to avoid TO Trap) 


Set bit 7(RND1/ZFLG) of FLAGWRDO = 0 
Set bit l(RENDWFLG) of FLAGWRD5 = 0 
If bit 13(REFSMFLG) of FLAGWRD3 = 0: 

Perform "R57" 

Perform "R53" 

Proceed to "P23.60" 

Set bit lO(SAVECFLG) of FLAGWRD9 = 0 (Tag here "P23.05"; bit used 

in "V94ENTER", thoi^h for 
clarity not shown in logic) 
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Perform "R57" 

TS = 0570 

vn 

Perform "P23N7071" 

Proceed to "V94ENTER" 

P23N7071 (Entered from "P23" for N70 and "P23.60" for N7I) 

22SUBSCL = TS (0570 or 0571 ) 

vn vn 

TS = 22SUBSCL 

Proceed to "VNFLASH" : (if tenninate, proceed to "GOTOPOOH") 

if proceed, proceed 

othervd.se, proceed to previous line 

Set bit 12(LUNUTL0) of FIAGWRD3 = 1 

If LANDMARK ^ 0: 

If HORIZON ^ 0, proceed to "R23.10" 

TS = LANDMARK 
If LANDMARK = 0: 

If HORIZON = 0, proceed to "R23.10" 

TS = HORIZON 

If bits 9-7 (digit "C") of TS ^ 1 or 2: 

Proceed to "R23.10" 

If bit 7 of TS = 1; (digit C = l) 

Set bit 12(LUNLATL0) of FLAGWRD3 = 0 
Set bit ll(FARHOR) of FLAGWRDO = 1 (Tag here "P23.176") 

If HORIZON = 0: 

Perform "P22SUBKB" 

If HORIZON ^ 0: 

If bits 6-4 (digit "D") of HORIZON ^ 1 ov ^ 2: 

Proceed to "R23.10" 

If bit 4 of HORIZON = 1: (digit D = l) 

Set bit ll(FARHOR) of FLAGWRDO = 0 


MEAS-19 


Rev. 0 


If STARCODE = 1 0: (Tag here "P23.30"; N88 if 77777 q too) 

TS = 0688 (Tag here "LDPLMBT") 

vn ' ° 

Proceed to "VNFIASH": (if terminate, proceed to "GOTOPOOH") 

if proceed, proceed 

otherwise, proceed to previous line 

STARSAV2 --- unit(K^^^^^^ STARSAVl) 

Return 

If STARCODE ^ 0: (only effective if ^ O) 

Proceed to "R23.10" 

If (STARCODE - 45g) > 0: 

Proceed to "R23.10" 

BESTI = 6 STARCODE (Tag here "P23.170") 

STARSAV2 = K 

BESTI 

Return 

R23.10 

Set bit 7(0perator error) of channel 11 = 1 
Proceed to second line of "P23N7071" 

V2.4ENTER (Entered from "P23" and due to restart group 2.11, set by 

"VERB94": tag for machine -language entrance is "V94NTR") 

MARKTIME = T 

now 

Perform "POINTAXS" 

UCLSTAR = ROLL 

TS = 00202. 

8 

Proceed to "GOPERFl" : if terminate, proceed to "GOTOPOOH" 

if proceed, proceed 
otherwise, proceed to "DOVECPT" 


Z = unitUCLSTAR 
^m — 

UCLSTAR = unit( unitZ + K ^ VZC) 

~ -sm onedc 

TS = unit [ STARSAV2 + K ^ (VZC - C )1 
“ v “ onedc — — veso / 


(continue onward if 
SAVECFLG =0, as it 
should) 
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(Tag here "OCCLCOMP") 


X = iinlt(Y * Z ) 

“sm '"sm^ 

X^^ = unit( NB]JJB2g fxj) 
I. - = unite NBINB2, 


= unite NB1NB2^ 

= I^SMMA'^ 


.1 


sm 


sm' 


Perform "CALCGA" 

Set bit 6(3 AXISFIjG) of FLAGWRD5 = 1 
Perform "D0R60" (starting at 4th line) 

Proceed to "P23.57" (after updating restart group 2) 
DOVECPT 

TS = UCLSTAR 
Perform "D0R60" 

Proceed to "P23.57" 


(after updating restart group 2) 


D0R60 


POUJTVSM = unite [rEFSMMA'3 TS) 

SCAXIS = K . 

— — jcaxis 

Set bit 6(3AXISFLG) of FLAGWRD5 = 0 

SRTEMP = Return address (Tag here "D0R60B") 


CADRFLSm-2 = "R60CALL" + 3 

Set restart group 2= phase 1 (i.e. 2.1, causing "R60CALL" to be 
entered via "INITDSP" logic if a restart) 


Proceed to "R60CALL" 

R6QCALL 

Perform "R60CSM" 

Proceed to address specified by SRTEMP 
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P23.57 


Set bit 9(IM;TRG) of FLAGWRDl = 0 
Set bit 11(V94FLAG) of FLAGWRD9 = 1 

Perform "R52" (uses STARSAV2 since STARIND set 0 in "ROO") 

Set bit 11(V94FLAG) of FLAGWRD9 = 0 
Proceed to "P23.60" 

P23.60 (Entered from "P23" if REFSMFLG =0, and from "P23.57") 

Inhibit interrupts 

MARKTIME = MRKBUFl^ 

dp 

TRUNION = MRKBUFl+5 
Release interrupts 
Inhibit interrupts 

MARKDOWN+i = MRKBUFl+i (i = 0 - 6) 

Release interrupts 

Set bit lO(SAVECFLG) of FLAGWRD9 = I (used in ''P23.85", though 

for clarity not shown in 

TS = 0571^ logic) 

Perform "P23N7071" 

Proceed to "P23.85" 

P23.B5 

Perform "POINTAXS" 

UCLSTAR = unit( unitRCLL + VZC) (Tag here "R23.55") 

USSTAR = unit^STARSAV2 + - C^gg^)) (continue onward if 

^ SAVECFLG =1, as it 

COSQ = USSTAR * UCLSTAR should) 

BVECTORq = unit (USSTAR - COSQ UCLSTAR) 

BVECTOR^ = 0 
BVECTOR^ = 0 
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TS^ = TRUNION, converted to ones complement form 
TS 2 = TS^ - TRUNBIAS, rescaled to scale factor BO revolutions 
TS = \RCIli\(TS 2 - cos"^ COSQ + (scaled B29) 

If bit 12(CM00NFLG) of FLAGWRD8 = 1: 

Shift TS left 2 places (to B27 scaling) 

DELTAQ = TS (Tag here "R23.51") 

VARIANCE = iHCIil* 


Set bit 9(DMENFLG) of FIAGVED5 = 0 (means 6-dimensional incorp- 
oration) 


Perfom "INCORPl" 

TS = [deltax^I 

If bit 12(CM00NFLG) 
Shift TS right 
N49DISP+'2 = TS 
TS = I DELTAQ I 
If bit 12(CM00NFIG) 
Shift TS right 
N49DISP = TS 
TS = 0649^ 

Perform "GOFLASHR" : 


of FLAGWRD8 = 1; 

2 places (to B?) 


of FLAGWRD8 = 1: 

2 places (to B29) 


if terminate, proceed to "GOTOPOOH" 
if proceed, skip next 2 lines 
othervd.se, proceed to "GOTOPOOH" 


TS = IOO 2 and perform "BLANKET" (R3BIM) 


End of job 


Set bit 8(CSMUPDAT) of FUGWRDl = 1 

Perform "INC0RP2" (no time tag change from original integration 

done by "POINTAXS" at start of "P23.S5") 

Proceed to "GOTOPOOH" 
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POINTAXS 


If bit 6(0RBWFIAG) of FLAGWRD3 = 0: 

= 0 (i = 0 - 17) (i.e. I^WqJ and ) 

and jw^j ) 

— WMIDPOS (i = 0, 4> 8, diagonal elements of ) 

= WMIDVEL (i = 36, 40, 44, diagonal elements of ) 

Perform "SETINTG" 

If bit 6(0RBWFLAG) of FLAGWRD3 = 1: 

Set bit l(WMATINT) of FIAGWRD3 = 1 
Set bit 6(0RBWFLAG) of FIAGWRD3 = 1 
Perform "INTEGRV" 

If bit 12(CM00NFIG) of FLA.GWRD8 = 1; (Tag here "RECT 1”) 

X2 = -2 

If bit 12(LUNLATL0) of FIAGWRD3 = 1: 

Set bit lO(ZMEASURE) of FLAGWRDO = 0 (state and measure- 
ment bodies same) 

If bit 12(LUNLATL0) of FLAGWRD3 = 0: 

Set bit lO(ZiyiEASURE) of FLAGWRDO = 1 
If bit 12(CM00NFLG) of FLAGWRD8 = 0: 

= 0 (Tag here "RECT.3") 

If bit 12(LUNLATL0) of FLAGWRD3 =1: 

Set bit lO(ZMEASURE) of FLAGWRDO = 1 
If bit 12(LUNLATL0) of FLAGWRD3 = 0: 

Set bit lO(ZMEASURE) of FLAGWRDO = 0 

TS = RCV^jj^ + (DELTAV^^ shifted right 7 - X2 places) (Tag here "RECT. 5") 
RZC = TS, shifted right -X2 places (to B29) 

TS = + (NUV^^ shifted right 4 - X2 places) 

VZC = TS, shifted right -X2 places (to B7) 


^1 = 0 (i = 27 - 44) (i.e. 
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If bit lO(ZMEASURE) of FUGWRDO = 1: 

TS = MARKTIME 
Perform "LUNPOS" 

If bit 12(CMD0NFLG) of FLAGWRD8 = 0: 
TS = _ TS 


RZC = TS + RZC 

If LANDMARK 7 ^ 0: (Tag here "R23.3") 

Set bit 13(ERADC0MP) of FLAGWRDl = 1 
TS = MARKTIME 
Perform "LALOTORV" 

TS = ALPHAV 

ROLL = TS - RZC (Tag here "R23.5") 

Return (to routine calling "POINTAXS") 

Proceed to "HORIZ" 

HORIZ (Program tag is "R23.4"j but "HORIZ" retained for 

consistency vrith previous programs and mnemonic usefulness) 


me — fn P 1 _ 

- ^^unitw ^ ^unitw ^ ^ ^ ^ 

X y 

UBAR^ = unit(STARSAV2 * RZC) 

UBARq = unit(TS * UBAR^) 

UBAR^ = unit(UBAR2 UBA^) 

If bit 12(LUNLATL0) of FLAGWRD3 = 1: 
PDBH = K 


radmoon 


PDAH = K 


radmoon 
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If bit 12(LUNLATL0) of FLAGWRD3 = 0: 


ALPHAV = UBAR, 
z —1 


TS 


RATETEMP = C, . - C, . , 

horizalt horislp 


Perform "GETERAD" 

PDBH = ERADM + RATETEMP 

, , + RATETEMP 


|rzc 


(RATETEMP same cells 
as (VHFCNT, TRKMKCNT)) 


PDAH = K 

a- 


UBARq 

PDRH = 

UBAR, 


-1 

UBARg 


UBARq 

PDUSH = 

UBARt 


-1 

UBAR^ 

PDA = (PDRH^ / 


RZC 


(Tag here "HORIZ.l”) 


STARSAV2 


y 


(divisions quasi- 
floating point) 


PDALPHA = (PDAH / PDBH) (v/PDA l' / PDA) PDRH (divisions each 

^ ^ done quasi- 

PDBETA = (PDBH / PDAH) (/PDA - 1 / PDA) PDRH^ 


floating point) 


PDVCTh = ( PDRH / PDA + PDALPHA, PDRH / PDA - PDBETA, O) 
_0 V X ' J 

PDVCT = ( PDRH / PDA - PDALPHA, PDRH / PDA + PDBETA, 0) 

_L X y 

PDAZERO = unit(PDVCTQ - PDRH) * PDUSH 
PDAONE = unit(PDVCT^ - PDRH) • PDUSH 
If PDAZERO - PDAONE < 0: 

If bit ll(FARHOR) of FLAGWRDO = 1: 

TS = PDVCTq 

If bit ll(FARHOR) of FLAGWRDO = 0: 

TS = PDVCT, 


(Tag here "H0RIZ.3") 
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If PDAZERO - PDAONE ^ 0: 


If bit ll(FARHOR) of FLAGWRDO = 1: 


TS = PDVCT^ 


If bit ll(FARHOR) of FIAGWRDO = 0: 


TS = TS 


TS = PDVCTq 


UBA^ 


UBAR^ 

UBAR^ 


RCIli = TS - RZC 


(Tag here "R23.5") 


Return (to routine calling "POINTAXS") 
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Quantities in Computations 

See also list of major variables and list of routines 


22SUBSCL: Single precision cell used in "P23N7071" to retain the verb-noun 
pattern used. Same cell also used in P22 (see Orbital and Rendezvous 
Navigation) . 

9DWI: Cell used single precision, scale factor BI 3 , to control 

performance of routine to convert W matrix from 6x9 to 6x6. It 
is stored in push-down list location lOD. 

9DWJ: Cell used single precision, scale factor BI 3 , to control 

performance of routine to convert W matrix from 6x9 to 6x6. It 
is stored in push-down list location I 4 D. 

9DWN: Cell used single precision, scale factor BI 3 , to control 

performance of routine to convert W matrix from 6x9 to 6x6. It 
is stored in push-down list location 12D. 

9DWP: Cell used single precision, scale factor BI 3 , to control 

performance of routine to convert W matrix from 6x9 to 6x6. It 
is stored in push-down list location 8D. 

9DWXX: Single precision cell used to retain return address information 
from "9DWT06DW". 

AGEOFW: Time of last W matrix initialization for rendezvous, scale factor 
B28, units centi-seconds . Set equal to MARKTIME in "REND5C", and can 
be displayed by noun 31* Used in "AUTOW" logic. 

ALPHAV: See Coordinate Transformations. 

BESTI; See Inflight Alignment. 

BVECTO^, BVECTOR^, BVECTOR^: Vectors used as communication cells with 
"INCORPl" to provide geometry information associated with DELTAQ, 
i.e. relating the deviation in the measurement (a scalar) to the 
vector deviation in the state vector. The three vectors can be 
considered associated with position, velocity, and landmark location, 
and in the CSM program BVECTOR-. is always set 0. Scale factors of 
BVECTO^ and BVECTOR- (non-zero only in P22) are Bl. 

^altvar' precision erasable memory constant, program notation 

"ALTVAR", scale factor B-I 6 , units rad^, used in "REND7" (part of 
R22) if optics backup (R23) data is used, to specify information 
on the a priori accuracy of the backup optics data. 

Ch i 1 : Erasable memory (double precision) constant, program notation 

"HORISLP", scale factor BO, used in "HORIZ" in the determination 
of "horizon altitude" (it is miiltiplied by 1 rZC| and then subtracted 
from the other terms). 
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*^horizalt* inemory (double precision) constant, program notation 

"HORIZALT", scale factor B29, units meters, used in "HORIZ" 

(part of P23) to determine the "horizon altitude". 

C. tvar* ^^8^® precision erasable memory constant, program notation 
"INTVAR", scale factor B15, units meters^, added to the 
variance computed in "REND7" (part of R22) for "integration 
variance", i.e. "square of expected integration position 
extrapolation error". 

Crmax’ Single precision erasable memory constant, program notation 

"RMAX", scale factor BI9, units meters, giAd.ng the maximum value 
of position state vector change (as expressed in N49DISP) that is 
incorporated automatically by R22. Values larger than this 
constant cause a display for crew approval. If it is desired to 
generate a display for all measiirement information, this can be 
accomplished by setting the constant to 77776^ (one bit negative). 

*^rvar’ unemory (double precision) constant, program notation 

"RVAR", scale factor B-I6, giving the "percentage error" (squared) 
in the VHP ranging meas\irement : for VHP marks, (|rCLP|)^ C + 

^intvar VARIANCE (subject to consCrlint). 

Actually would involve "percent"/lOO, of course. 

^rvarmin' pi’ecision erasable memory constant, program notation 

"RVARMIN", scale factor B40, units meters^, giving the negative 
of the minmum value of VARIANCE for the VHP range measurements in 
R22 (negative is for coding convenience) . If the most significant 
one-third of the constant is zero, then the least significant two- 
thirds can be considered as a double precision number, scale factor 
B26. If set very large, effectively inhibits use of VHP data(for W small). 

' General Program Control. 

£^eso' Coordinate Transformations. 

^vmax' ^^8^® pi'ecision erasable memory constant, program notation 
"VMAX", scale factor B7, units meters/centi-second, giving the 
maximum value of velocity state vector change (as expressed in 
N49DISP+2) that is incorporated automatically by R22. Values 
larger than this constant cause a display for crew approval. 

CADRPLSH+2: See Display Interface Routines. 

COSQ: Cosine of angle between USSTAR and UCLSTAR, scale factor Bl, 
stored in push-down list location OD. 

COUNT3MK: See Minimum Key Rendezvous. 

CSMPOS: Value of CSM position vector, scale factor B29 (earth) or B27 
(moon), units meters. 
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DEI/^DA: Value of DELTAQ/TRIPA, variable scale factor, stored in push- 
down list location OD. If nimerator and denominator are 
already normalized, scale factor is B-10 for earth or B-12 
for moon. 

DELTAQ: Value of deviation in measurement quantity, scale factor 
B29 (earth) or B27(moon), units meters. 

DELTAV^^, DELTAV^: See Orbital Integration. Component overflows if 
exceeds 2^^ meters (earth) or 2^^ meters (moon) . 

DELTA^^, DELTAX^, DELTAX^: State vector deviation estimates, scale 

factor (for DELTAQ and DELTAX^) B29(earth) or B27(moon), units 

meters; for DELTAX scale factor B7(earth) or B5(moon), units 
meters/centi-second. They are for position of vehicle, velocity 
of vehicle, and position of landmark respectively (i = 0,1,2). 

EGRESS: Single precision cell used for storage of return address 
information from "INC0RP2" routine. 

EMATRIX^: Temporary storage cells used to store intennediaLe results 
from the conversion of W matrix from 6x9 to 6x6. The cells used 
in the memory for this fimction correspond to W/, - but 

separate notation is used (as in the program) for clarity. 

ERADM: See Coordinate Transformations. 

GAMM: Quantity computed in "INCORPl", variable scale factor (scale 
factor information partially contained in cell NORMGAM). If 
NORMGAM = 0, scale factor of GAMMA equivalent to B-40. NORMGAM 
subsequently modified to reflect rescaling of Z. (for use in 
"INC0RP2"). 

HORIZON: Single precision quantity loaded and displayed in R3 of N70 and 
N7I, used only in P23 (see "P23N7071")- If LANDMARK is non-zero, 
then HORIZON must be zero; if LANDMARK = 0, then HORIZON checked to 
be of the form XXCDX, where C = 1 means earth and C = 2 means lunar 
(other values not allowed); D = 1 means near horizon and D = 2 means 
far horizon (other values not allowed). If an illegal input is 
detected (the X's may be of any value, provided LANDMARK = 0), then 
the display is generated again, after energizing the operator error 
light . 

*^ldsqr3‘ ^O’^stant, program notation "1DSQR3", scale factor BO, value 
0.57735021. Value corresponds approximately to (l/l. 732051) , 
or the reciprocal of \!T. 

^2ni‘ Oonstant, program notation "PI/4.O", scale factor B3, value 
^ O.7S5398I64. Value corresponds to 2 x 3.141592656 x 2~^ , or 

approximately 2Tr x 2“^, to convert between angle measurements 
in units of revolutions and radians. 

^60secdp‘ program notation "6OSECDP", scale factor B28, 

units centi-seconds . Value is 6OOO x 2~^°, corresponding to 
60 seconds: if T - VHFTIME is at least this amount, then an 

attempt can be mae to obtain a new VHP mark in "REND3". 
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Kq-v- 1 : Single precision constant, program notation "90MSCALR", scale 
^ ca r units centi-seconds . Value is 440g, or 9 x 2 ', 

corresponding to 9 centi-seconds (the time delay, when added to 
RADDEL, between initiation of radar read and completion of the 
shift pulses). 

K : Constant, program notation "AEARTH", scale factor B29, units 

meters. Value is 637S166 x 2”^°, the Fischer model equatorial 
earth radius. 

—cat* Inflight Alignment. 

K : Constant, program notation "CONVRNGE", scale factor B13, units 

convrnge (meters/bit). Value is 18.52 x 2“^^, corresponding to a 
VHF ranging system bit weight of 18.52 meters (or O.OICX) nmi). A 
value of (2"^^ K ) corresponds to the weight of bit 15, normally 

the "sign", of 

K qqq! Constant, program notation "FT99999", scale factor B19, units 

meters. Value is 30479 x , corresponding to 99996.72 x O.3048 
X 2“^°, where first term is value in feet (display would be expected 
to show 99997 feet), second converts to meters, and third is 
scale factor. 

K, : Constant, program notation "IMUyAR", scale factor B-I6, units 

imuv r Value is O.O4E-6 x 2^°, corresponding to O.O4 mr^. 

K. . : Vector constant, program notation "JCAXIS", scale factor Bl, 
jcaxis^^^g (0.268819062, 0, 0.421587846). True values correspond to 
(0.537638124, 0, 0.843175692), or (sin 6, 0, cos 6), where the 
angle is approximately the same as that defined in (NBINB^ (see 
Coordinate Transformations): the octal matrix element for the sine 
is one least increment larger than that in K . . . 

J CoXlS 

K ,, : Single precision constant, program notation "-DTSCALR", scale 

^ factor B9, units centi-seconds. Value is 77754g, corresponding 
to -23g, or -0.59375 centi-seconds (a measure of when the shift 
pulses are sent to the radar) . 

K , : Constant, program notation "ONE/C", scale factor B-21. units 
onedgf (jDeters/centi-second)"^. Value is 0.333564049E-6 x 2'^"^, 
corresponding to (1/2.997925E6) x 2^^, where first term is 
reciprocal of speed of light in meters/centi-second (corresponds 
to 9.835712E8 fps) and second is scale factor. 

K , : Constant, program notation "RADMOON" . scale factor B29, 

units meters. Value is 1738090 x 2 ~^° , the mean lunar 
radius . 

K ; Constant, program notation "SXTVAR", scale factor B-I6, \jnits 

s var ^ Value is O.O4E-6 x 2^°, corresponding to O.O4 mr^. 

K, Constant, program notation "TRUN19", scale factor BO, units 

revolutions. Octal value is 0l604rt 00000-, used to correct 
TRUNION for the built-in bias. Decimal value is 900 x 2"^, or 
(7200 X 2”^) X 2“^, where the 7200 is the complement of the 
optics trumion "zero" value (see Kpnn ^ Optics Computations), 
and the 2“^ is scale factor compensa^8M®(from B-3 to BO revolutions). 
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^trunvar" program notation "TRUNVAR" scale factor B-18, 

units radians^. Value is 2.5E-9 x 2^°, corresponding to 
0.0025 mr^. 


K , , : Triple precision constant, program notation "VARSUBL", 

^ ® scale factor B40, vinits meters^. Valiie is 3-429904E6 x 2”^*^, 

corresponding to (1852)^ x 2~^^, or the square of one nautical 

mile expressed in meters. In the listing, program sets the 

most significant one -third of the constant 0 (and uses the fact 

that it is zero elsewhere), and treats the least significant 

two-thirds as a double precision number, scale factor B26 

(see C . ). 
rvartmn 

LANDMARK: See Orbital and Rendezvous Navigation. 


LEMPOS: Value of LM position vector, scale factor B29 (earth) or B27 
Xmoon), units meters. 

MARKDOWNti (i = 0-6): Set of optics mark information (double precision 
time, optics shaft, CDU^, optics trunnion, and CDU^ 

respectively) intended for downlink transmission in programs making 
use of optics data. For P23, cells loaded in "P23.60" with 
measurement data, and in "MARKDIF" if get an R57 mark. Address is 
selected in "SXTSM" if STARIND = 0. For P5I - P54, this means the 
BESTI body being marked; for P22 and R22, since STARIND set 0 in 
"ROO", the cells are also loaded (due to performance of part of 
"SXTSM" via "GETUM"). MARKDOWN-f-7 is the same cell as RM. 


MARKTIME: Cells used to contain time of mark information for R22 and P23, 

and as a commimication cell with "SETINTG" (for which only first 2 cells 
are employed, scale factor B28, units centi-seconds) . Used in R22 as 
the first 2 cells of a 7~cell buffer to contain optics mark data 
being processed, as loaded from MRKBUFl cells in "RENDl" . 

MRKBUFl: See Optics Computations. 


N49DISP: Magnitude of position state vector change for display in R1 of 
N49> scale factor B29, units meters. The magnitude is calculated as 
the square root of the sum of the squares of individual components 
of DELTA^, where the squares are carried triple precision. Hence 
if a given component is of insufficient magnitude to be retained triple 
precision when squared, that component will contribute 0 to the simi: 
since for triple precision scaled BO the least increment is 2“^, 
this means that for a component to have an input it must be at leant 
2“ . For earth scaling, this would correspond to 2° (256) meters 

and for moon scaling 2 (64) meters. Hence if all three components 

of DELTA^ are less than 256/64 meters (earth/moon) , N49DISP will 
display zero; 256 meters is about O.I4 nmi, while R1 of N49 least 
increment is 0.01 nmi. 


MEAS-32 


Rev. 0 


N49DISP+2: Magnitude of velocity state vector change for display in 

R 2 of N49, scale factor B7, units meters/centi-second. Magnitude 

is calculated in a manner analogous to N 49 DISP, using DELTAX, 

instead of DELTA^. The effect, however, is considerably less, 

since for earth scaling least Increment on square is 2 ~^ 

meters/centi-second and for moon 2 ~ meters/centi-second: these 

correspond to about 0.02 fps and about O.OO 5 fps respectively, 

while the display least increment is 0.1 fps. See C 

^ vmax 

N49DISP+4: Single precision cell, scale factor BI 4 , used to display in 
R3 of N49 (for R22 only) information on the source of the update 
generating the display. It is set to 1 in "REND?" for optics 
data and 2 for VHP ranging data. 

[nBINB;^ : See Coordinate Transformations. First row is NB1NB2^, second 
row is NB1NB2^, and third row is NB1NB2^ . 

NUVcm' See Orbital Integration. 

OLDMKTME: Time of previous mark, scale factor B28, mits centi-seconds, 
loaded in "REND12" and used in "AUTOW" logic. 

OMEGAq, OMEGA^, OMBGA^: Weighting vectors for measurement incorporation 

of DELTAQ measurement (to give a "statistically optimum linear 
estimate of the deviation from the estimated state vector"). 

Scale factors of OMEGA^ and OMEGA^ are B39j while the scale 
factor of OMEGA^ is B^. This scaling is for no rescaling. 

OMEGAl^, OMEGAM^, OMEIGAM^: Values of OMBGA^ multiplied by GAMMA, 

used in "INC0RP2" for updating W matrix information. Scale 
factor depends on scaling of GAMMA: if NORMGAM = 0 (see GAMMA), 
then scale factor of OMEGA^ and OMEGAM^ is B-1, and for 
OMEGAIL scale factor is B-^. Program notations for these 
quantities are "OMEGAMl", "0MEGAM2", and "0MEGAM3" respectively. 

OPTMODES: See Optics Computations. 

PBODY: See Orbital Integration. 

PDA: Value of intermediate quantity "A" in "HORIZ", scale factor B18, 
stored in push-down list location I 6 D . The ratio (\fA - l' ) /A is 
stored in push-down list location 28D, scale factor BO. 

PDAH: Value of semi -major axis used to define shape of horizon ellipse 
in "HORIZ", scale factor B29, units meters, stored in push-down 
list location 2D. 

PDALPHA: Value of intermediate quantity computed in "HORIZ", scale 

factor B29, units meters, stored in push-down list location 24D. 

PDAONE: Value of intermediate quantity "A," computed in "HORIZ", scale 
factor B2, stored in push-down list "^location 24D. 
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PDAZERO: Value of intermediate quantity "Aq" computed in "HORIZ", scale 
factor B2, stored in push-down list location 22D. 

PDBETA: Value of intermediate quantity computed in "HORIZ", scale 

factor B29, units meters, stored in push-down list location 26D. 

PDBH: Value of semi-minor axis used to define shape of horizon ellipse 
in "HORIZ", scale factor B29, imits meters, stored in push-down 
list location OD. 

PDRH: Value of RZC transformed to Horizon Coordinate System, scale 
factor B29, iinits meters, stored in push-down list location 
4D. 


PDUSH: Value of STARSAV2 transformed to Horizon Coordinate System, 
scale factor Bl, stored in push-down list location lOD. 

PDVC^: Vector defining "point of tangency from PDRH to horizon", scale 
"^factor B29, units meters, stored in push-down list location 28D. 

PDVCT^ : Vector defining the other point of tangency to horizon, scale 
■^factor B29, units meters, stored in push-down list location 16D. 

POINTEX: Single precision cell used to retain return address information 
from "WAITONE". 

POINTVSM: See Attitude Maneuvers. 

QPRET: See Orbital Integration. 

QREG: Computer Q register (cell 0002g), loaded with S-register information 
for computer TC orders, and also used in some cases for temporary 
storage of other information. As used in "REMDISP2", apparently 
expected to contain a positive non-zero nimiber (as would be true 
for a TC order use). The actual sampling of QRK takes place in 
the program ser^d-ce routine "BANKJUMP", which is entered at the 
end of "ENDRET2"to retiorn to the "PRIODSP" caller. 

R : See Orbital Integration. 

—other 

R6ICNTR: See Orbital and Rendezvous Navigation. 

RADDEL: Single precision time until the 100 pps pulse initiating radar 
read sequence (loaded in "RADSTART"), scale factor B9, units 
centi-seconds. 

RADTIME; Single precision storage for the complement of the contents of 
channel 4, scale factor B9, units centi-seconds, as sampled when 
bit 4 of channel 13 was set to initiate radar reading. 

RATETEMP: Temporary storage cell used in "HORIZ" to contain horizon- 
altitude correction information, scale factor B29, units meters. 
TRKMKCNT is the least significant half of the cell and VHFCNT is 
the most significant half. Also see Optics Computations. 
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ROLL: Tag assigned to value of (RL - RZC) in this document, scale factor 
B29, units meters. Left in MPAC when exit from "POINTAXS"/"HORIZ" . 

RCLP: Value of (LEMPOS - CSMPO^ for R22, scale factor B29 (earth) or 
B27 (moon) , units meters . 

RCV, RCV^^, RCV^: See Orbital Integration. 

RM: Single precision value of measured range sampled from RNRAD cell, 
scale factor BI 4 , units counts (one VHP count is 0.01 nmi) . The 
cell is the same as MA.RKDOWlI+7 (for telemetry purposes). 

RNRAD: Single precision special erasable memory cell 00A.6-, into which 
VHP range data is shifted under hardware control if bits 4-1 of 
channel I 3 are set to lOOl-. When shifting is complete, program 
interrupt #9 is gene rated, '^causing entrance to "VHFREAD" . 

RZC: Value of position vector to the body with which the horizon or 

landmark measurement in P23 is made, scale factor B 29 , units meters. 

SCAXIS: See Attitude Maneuvers. 

SRTEMP: Exit address (single precision) from "R 6 OCALL". 

STARCODE: See Inflight Alignment. Mentioned in comments of this section. 

STARIND: See Inflight Alignment. 

STARSAV 2 : See Inflight Alignment: in P23 used for K , (or N 8 B) information 
which is employed by R52, with notation "US" . 

STARSAV 3 .: See Inflight Alignment. 

Tg^, TDELTAV: See Orbital Integration. 

TEMPORl: Single precision cell, scale factor BI 4 , used in the 
"RENDISP"/"RENDISP2" interface to determine when an answer 
to the 0649 display is received (when value becomes non-zero) 
and to conclude that this answer was PRO if negative and 
that it was a recycle if it was positive (see QRBO). This method 
is employed to avoid display conflicts (with e.g. R 60 P20 display), 
and will cause the computer activity light to remain on until 
the display is answered. 

TNllV: See Orbital Integration. 

TRIPA: Triple precision value of sum of VARIANCE and computed 

in "INCORPl", scale factor B40. It is used as the denominator 
value for computing the necessary weighting functions (a rounded 
version is used to multiply VARIMCE). 
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TRKMKCNT: Single precision cell, scale factor B14, giving a count of the 
number of optics marks (either primary optics or via R23) that have 
been completely incorporated into the state vector in R22 (it is 
incremented in "REND12"). It is set 0 in "DOFSTART", "P37E" , and 
in "REND5C" (when initialize W matrix for R22 use). Cell is the 
"least significant half" of VHFCNT, and can be displayed as the 2 
least significant digits in R3 of N45. The same cell is also used 
for RATETEMP+1 (see this writeup and Optics Computations). 

TRUNBIAS : See Optics Computations . 

TRUNION: Single precision value of measured optics trunnion angle for 
P23, loaded in "P23.60", scale factor B-3, units revolutions. 

TXyS^: Temporary storage in "INC0RP2" for updated value of same 

scaling (not loaded into XyS^ unless bit 9(DMENFIG) of FLAGWRD5 = 1, 
as it would be for P22 but not for P23 or R22 of P20) . 

UBA^, UBAR^, UBAR^: Unit vectors, scale factor Bl, used in "HORIZ" to 

define the transformation matrix from reference coordinates to the 
Horizon Coordinate System. 

UCL: Value of unitRCIP computed in "RENDy", scale factor Bl (a unit 
vector, of course). 


UCLSTAR; Unit vector information, scale factor Bl, used in "P23.85" and 

"V94ENTER" for corrected vector to landmark/horizon. Cell also used 
for temporary storage purposes . 


UM: Value of unit measurement vector derived in "GETUM" , scale factor Bl: 
it gives the direction of the optics-measured information in 
reference coordinates. 

USSTAR: Value of xmit vector to celestial body computed in "P23.85", 
scale factor Bl (includes correction for velocity of light) . 

USTAR: Unit "fictitious star direction", scale factor Bl, updated in 
"BVECTORS" (initialized in "RENDy" or P22) . Two such quantities 
are used, "chosen to be perpendicular to each other and to the 
current estimated line-of-sight vector." 


—other ’ 


See Orbital Integration. 


VARIANCE: Triple precision variance associal/ed witJi the navigation 
measurement reflected in DELTAQ, scale factor B40, units of 
meters^. The value for use in "INCORPl" is computed by the 
individual calling program based on a priori measurement errors. 


VCV, VCV^^: See Orbital Integration. 
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VHFCNT; Single precision cell, scale factor B14, giving a count of the 

niimber of VHF range marks that have been incorporated into the state 
vector in R22 (it is incremented in "REND12")- It is reset to 0 
at the points listed for TRKMKCNT (which is the "least significant 
half" of VHFCNT), and it can be displayed as the 2 most significant 
digits in R3 of N45* Same cell used for most significant half of 
RATETEMP (see this writeup and Optics Computations). 

VHFRANGE: Value of incoming VHF range measurement (a scaled version of the 
15-bit integer in RM), scale factor B27 (earth or moon), units 
meters, computed in "RANGERDl". If reading unsuccessful, used instead 
to control lighting of Tracker light in "LIGHTON" . 


VHFTIME: Value of computer clock when last VHF range san^jle was made, 

scale factor B28, units centi-seconds . It is initialized to present 
computer clock in "R22", and if more than have elapsed 

since it was last loaded (see "REND3" logic), then another sample 
attempt is initiated. It is set to MA.RKTIME in "LIGPTTON" (sample not 
successful) or "RANGERDl" (sample successful): MARKTIME is set to T 
in "RADSTART" (just after setting channel 13 bits to initiate 
sample, but after releasing interrupts that were inhibited during 
channel 13, setting). 

VZC: Value of vehicle velocity vector for P23 computed in "POINTAXS", 
scale factor B7, units meters/centi-second (same scaling for earth 
or moon) . 


now 


[“il 


W. 

1 


w. 


Notations used to describe portions of the "W" (error 

transition) matrix stored in the computer memory: the complete 
matrix consists of 9 rows and 9 columns, giving Bl elements. 

Each element in the memory is stored double precision, so that the 
last element wo\ild have the notation "W +I6O" in the program. 

For simplicity, however, this incrementing of addresses by 2 has 
been suppressed in the programmed equations (indices are shown 
scaled BI3 instead of Bli|.), so that the first element is called 
Wq, the next W^, and the last element Computations carried 

out by vector operations on three elements at a time are designated 
by the usual vector notation with the subscript being that of 
the first element involved: W^, for example, is the "vector" made 
up of (W^ , , W^). ^ 

Other manipulations in the program make use of the 3x3 matrix 
computation capabilities of the interpretive language. For 
convenience in description, the indices for these 3x3 matrices 
run from 0 to 8 (all matrix operations shown are 3x3), with 
the index determined by the index of the first element divided 
by 9: would be the matrix with rows made up of ¥21, 

and , for example. The complete 9x9 matrix is made up or 
these‘^3x3 matrices, with the first three rows being 11/^ , fw J , 
and [Wpl ; the middle three rows , [w.l , and jw J j 

and the final three rows (W/l , rW-T , ana (wj] . 

For a 6x6 (P20 and P23) in^ead 01 9x9 (P22) W^trix application, 
only {wj] , , and jwj are employed. 
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Initialization of the W matrix involves initializing the diagonal 
elements of with the appropriate position uncertainty 

information ana the diagonal elements of rw,"! with the appropriate 
velocity \ancertainty information: see P22 reputations for the 
initialization performed for landmark information. 

The scale factor of all elements of a given 3x3 matrix is the same . 
For matrix , with i = 0,1, 2, 6, 7585 the scale factor is BI 9 

in units of meters; for i = 3,U,5, the scale factor is BO in units 
of meters/ centi-second . 

WMIDPOS: Single precision value of W matrix initialization for position 
information ( fw/j ), scale factor BI 9 , units meters. Can be 
updated by "V67 CjU,L", and also would be esq^ected to form part of 
prelaunch load: it is used in "POINTAXS" to initialize the 
W matrix for P23 . 

WMIDVEL: Single precision value of W matrix initialization for velocity 
information ( ), scale factor BO, units meters/centi-second. 

Can be updated by "V 67 CALL", and also would be expected to form 
part of prelaunch load: it is used in "POINTAXS" to initialize the 
W matrix for P23 . 

WORBPOS: Single precision value of W matrix initialization for 

position information, scale factor BI 9 , units meters. Can be 
updated by "V 67 CALL", and also would be expected to form part of 
prelaunch load: it is used in P22 for W matrix initialization. 

WORBVEL: Single precision value of W matrix initialization for velocity 
information, scale factor BO, units meters/centi-second. Can 
be updated by "V 67 CALL" , and also would be expected to form part 
of prelaunch load: it is used in P22 for W matrix initialization. 

WORKW: Temporary storage cell used in the conversion of a 6x9 matrix 
to 6x6 form. Corresponds to push-down list location OD. 

WRENDPOS: Single precision value of W matrix initialization for 

position information, scale factor BI 9 , units meters. Can be 
updated by "V 67 CALL", and woiild be expected to form part of the 
prelaunch load. It is also loaded (if final pass and in minimum 
key rendezvous mode) in "VNI 645 " with K (see Burn Computations) 

It is used in "REND5C" to initialize thS°^^matrix for R22. 

WRENDVEL: Single precision value of W matrix initialization for velocity 
information, scale factor BO, units meters/centi-second. Can be 
updated by "V 67 CALL", and would be expected to form part of the 
prelaunch load. It is also loaded (if final pass and in minimum 
key rendezvous mode) in "VN1645" with K (see Burn Computations) 

It is used in "REND5C" to initialize thS°W'^matrix for R22. 


MEAS-38 


Rev. 0 


WWOPT; Single precision cell, scale factor B14, used in "V67CALL" to 

specify whether the matrix initialization elements are to be changed, 
and if so which set. The value when displayed initially in R3 of N99 
is 0. A non-zero value means a change desired, with a value of 1 
(or negative non-zero) changing WRENDi; a value of 2 changing WORBi; 
and a value in excess of 2 changing WMIDi. 

WWPOS: Quantity displayed in R1 of N99, scale factor BI9, xmits meters. 

It provides the present W matrix position error. If the loading 
option is selected, is iised as source for WiPOS information. 

WWVEL; Quantity displayed in R2 of N99i scale factor BO, units meters/ 
centi-second. It provides the present W matrix velocity error. 

If the loading option is selected, is used as source for WiVEL 
information. 

X782- Value of estimated landmark location, scale factor B29 (earth) 
or B27(moon), units meters, as updated by results of measurement 
incorporation routines. 

Z , Z , Z_; Measurement vector information, scale factor B20, units 

Mters, computed at the start of "INCORPl". Subsequently rescaled. 
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